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For  Orders  Only  - 1-800-551-9995 
CA.  Orders  /  Information  415-352-3787 


No  surcharge  for  VISA/MasterCard 
Your  card  is  not  ctiarged  until  we  ship 


SPINNAKER 

EDUCATIONAL  CARTRIDGES 
Cartridges  work  with  al  Atari  8- bit  Corrputors 

•  Kindercomp         •  Delta  Drawing 

•  Fraction  Fever     •  Story  Machine 

•  Alphabet  Zoo 

•  All  in  the  Color  Caves      $  Q75„^ 


HOT  DISK  TITLES 

■  Video  Title  Shop 

■  ChessMaster  2000 

•  Alternate  Reality  the  City 

■  Alternate  Reality  Dungeon 

•  Tomahawk  (64K)       a-   .  r^r-n 

■  Bismark  $1'P50g 

•  221-B  Baker  St.  '  '" 


WORD  PROCESSORS 

Bank  street  Writer  Disk $17.50 

Cut  &  Paste  Disk $17.60 

AtariWrilor  Cartridge $29.95 

DATA  BASE 

Data  Perfect  by  UK  is  a  high-powered 

general  purpose  dala-base  lor  use  m  dozens 

of  applicftions.  Create  your  cwn  mailing  lists, 

Lbusinees  data  base,  etc $CALL  . 


800  4  PIECE  BOARD  SET 

Includes  Main  Board,  Power  Supply 
Assembly,  CPU  Module  and  10K 
Revision  B  Operating  System  Module. 
All  boards  are  new,  tested  and  conplete 
with  all  components $28.50 

800/400  MODULES 
NEW  PARTS  COMPLETE  WFTH  IC'S 

•  CX853  16K  RAM  MODULE  ....  $9.60 

•  800  MAIN  (MOTHER)  BOARD  .  $9.50 

•  800/400  CPU  Module  with  GTIA  $9.60 

•  800  10K  -B"  O.S.  MODULE  . . .  $9.60 

•  400  MAIN  (MOTHER)  BOARD  .  $9.60 
•400  POWER  SUPPLY  BOARD  $9.50 
•800POWERSUPPLYBOARD$14^ 

INTEGRATED  CIRCUITS 


1050  IC'S 

•  U7  -  6532  $6.60 

•  U8  -  6810    $4.50 

•  U9  ■  6507  $4.50 

•  U10   ROM  $19.60 

•  U13  2793  $19.50 

•  U5  LM2917  $8.60 
All  other  1060  IC's 

$3.75  each 
Specily  by  Socket* 

850  IhfTERFACE 
12  Piece  Chip  set. 
Includes  all  plug  In 
IC'S  except  ROM. 
Replacennent  fixes 
vast  majority  of  850 
failures $19.50 


C0 14795 . 

.$4.50 

C0 14805. 

.$4.50 

C0 12296 . 

.$4.50 

C0 10745 . 

.  $4.50 

C0 14377. 

.  $4.60 

CO60472 

.$4.50 

C012298. 

.$4.60 

C012399E 

$4.50 

C012499E 

$4.50 

C014S99E 

$4.60 

CO  14806. 

.  $4.60 

C0 10750. 

.$6.50 

C0 10444. 

.$8.50 

C0 12294 

$9.50 

C021697 

$15.00 

C061991 

$16.00 

C061698 . 

$20.00 

C061618 

$20.00 

C024947 

$16.00 

1050  MECHANISM 

Factory  fresh  TANDON  mechs. 
make  difficult  repairs  a  snap.  Units 
are  complete  with  Head,  Stfcpper, 
Spindle  motor,  belt  etc.  Just  plug  in, 
no  difficult  alignments  or  adjust- 
ments requirea      $A—7c,n 


VISiCALC 

SPREADSHEET 

Unleash  the  corrputing  power  t  j  oQ5 1 

_i n  u:.  At ;  ...:tu\f;..i — i^   *   T  V-j-^^  I 


of  your  8  ijit  Atari  withViscalc, 
Corrpute  everything  from  homo 
finances  to  high  powered  finan- 
cial projections.  Hundreds  o(  uses. 


DISK 


XL  40  PIN  LSI  CHIP  SET 

A  Complete  set  of  40  Pin  Large 
Scale  Integrated  Circuits  for  your 
800XL,  60CXL  or  1200XL  computer. 
Great  for  quk:k  repajrsi  Set 
contains  one  each  of  the  -^  j  -^  nc  I 
following:  CPU,  GTIA,      $1f-\y='l 
ANTIC,  PI  A  AND  POKEY.         '^ 


REPAIR  MANUALS 

SAMS  Service  Manuals  lor  the 
following  units  contain  schematics, 
parts  listings,  labelled  photographs 
showing  the  location  of 
checkpoints  and  more!  A  special 
section  gives  oscilloscope  and 
logic  probe  readings  allowing  you 
to  narrow  the  malfunction  down  to 
a  specific  chip  or  transistor  I 
800,  800XL,  130XE,  400,  1025 

and  1050 $19.50  each 

520ST  Service  Manual.  $37.50 

MISCELLANEOUS 

1027  INK  ROLLER $6.50 

13  Pin  Serial  I/O  Cable $5.95 

ACE  Joystick $7.95 

800XL  RF  l*dulator $9.50 

1050  Track  0  Sensor $8.50 

2793  1050  Controller  IC  . . .  $19.50 

U.S.Doubler $29.95 

SPARTADOS Tool-Kit...  $32.95 
Paddle  Controllers  (Pair) . . .  $6.50 
400  3  Piece  Board  Set ... .  $19.50 

Fastchip  for  800/400 $15.50 

Rambo  XL  w/o  RAM  IC's  $39.95 
850  or  PR  Modem  Cable  . .  $14.50 
850  or  PR  Printer  Cable  . . .  $14.50 

Printer  Interface $39.95 

I/O  13  Pin  PC  connector . . .  $4,50 
I/O  13  Pin  Cable  end  plug  . .  $4.50 
ST  6'  Disk  Drive  Cable  . .  .  $14.00 
ST  Monitor  Cable  connector     $5 .50 

ST  Drive  Cable  plug  end $6.50 

5  V4"  Drive  Cable $23.95 


CALL  TOLL  FREE 
1-800-551-9995 

IN  CALIF.  OR  OUTSIDE  U.S. 
CALL  415-352-3787 


TOWER  PACKS 

Exact  replacement  trans-  a>    m    .ar-/^l 

former  for  800/400.  1060  5)  '1  /I  OO I 
810,  1200XL,  850,  Xl=561  8,  I  *+ 

1020  units.  Part  «C017945. 

XUXE  SUPPLY 
PciwfPakforeooxL.eooxL  SOCnnI 

130XE,  65XE  &  XE  Game.    *^J^^^I 


THE  BOOKKEEPER 
AND  CX85  KEYPAD 

You  get  both  Atari's  8  bit  ■ 

professional  bookkeeping    $  "IQ^^I 
system  and  the  liandy  CX85        '^       I 
numeric  keypad  for  one  low     4  DISK 
price.  Packages  factory  sealed.      SET 


KEYBOARDS 

New  and  complete  subassembly. 
Easy  internal  replacement. 

130XE/65XE    $35.00 

800 $40.00 

800X1 $29.50 

400 $12.50 


COMPUTER  BOOKS 

Atari  Playground  Workbook  $7.95 
HackerBook  Tricks  &  Tips   $5.00 

Inside  Atari  Basic 1500 

Atari  Basic  Ref.  manual.  $5.00 
How  to  Atari  6502  Program  $5.00 
Write  Your  Own  Games.  $5.00 
Programmers  Ref.  Guide  $14.95 
Assembly  Language  Guide  $21.95 
XE  Users  Handbook ....  $21.95 
XL  Users  Handbook ....  $2 1.95 
Atari  Basic  Faster  &  Bener  $22.95 
Your  Atari  Computer $17.95 

SERIAL  I/O  CABLE 

High  Quality,  13Pin $5.95 

Special ...  3  Cables  for  $12.50 

MAC-65  CARTRIDGE 

6502  Machine  language  Macro- 
Assembler.  First  class  tool  for 
serious  programmers. . .   $59.95 

ATARI  850  INTERFACE 

Bare  PC  Board  with  parts  list  and 

crystal $7.50 

Board  &  all  plug  in  IC's  . . .  $39.50 

PR:  CONNECTION 

Serial/Parallel  Interface  for  connecting 
modems  and  printers $65.00 

BASIC  CARTRIDGE 

Exact  replacement  for 
800/400/ 1200XL $15.00 

ANIMATION  STATION 

Graphics  Design  Tablet $74.95 

Includes  Design-Lab  software. 


iCartridges  for  all  8  bit  Atari  conpulers  ' 

POLE  POSITION  CM&idge $15.00 

PAC-MAN  Caftridge $4.00 

DELUXE  INVADERS  Ca/tridge $4.00 

I  JOURNEY  TO  THE  PLANETS  Cart     $4.00 

DONKEY  KONG  Garbidge $5,00 

STAR  RAIDERS  Car&idge $5.00 

MILLIPEDE  Cartridge $10  00 

CAVERNS  OF  MARS  Cartridge    ,      $14.50 

PENGO  Ca-tridge $15.00    l 

EASTERN  FRONT  Cartridge $15,00 

AT ARIWRITER  Cartridge $29.95 

I  TURMOIL  Cartridge $5.00   I 

CROSSFIRE  Cartridge $7.50 

SPRINGER  Cartridge $7.50 

LINKING  LOGIC  ( Fisher- Rice)  Cart  $8,75 
ADVENTUFE  CREATOR  Cartridge  $12.50 

ZONE  RANGER  Cartridge $12.50 

I   SILICON  WARRIOR  Cartridge)  ....  $12.50 
MATH  ENCOUNTER  Cartridge       .     $12.50 

UP  FOR  GRABS  CarBidge $12.50 

PILOT  LANGUAGE  Package  .  .  .  $17.50 
SPARTADOS-X  Carlridge  ,  S59  95 

ACTION  OSS  Cartridge  .  ,  .  $59.95 
MAC-eS  OSS  Cartridge  .  .  $59  95 

BASIC  XE  OSS.  Cartridge  .  .  $59.95 

R-TIME  8  Cartridge $56.95 

BASIC  XL  OS  S,  Cartridge  .  .  .         $49.95 
DISK  TITLES 

VISICALC  Spreadsheet    $19.95 

BOOKKEEPERS  CXfl5  KEYPAD.    $19.95 

MISSION  ASTEROID  Disk $4.95     I 

SPIDER  MAN  Disk $4.95 

CRYSTAL  RAIDER  Disk $4  95     | 

DISPATCH  RIDER  Disk $4.95 

DAVID'S  MIDNIGHT  MAGIC  Disk        $4,95 

ALIEN  AMBUSH  Disk $4,95    i 

HUMAN  TORCH  a  THE  THING -.  -     $5.00 

MUSICAL  PILOT  Ed.  Disk $5.00    \ 

CON'PUTATION  Disk $5.00 

MASTER  CHESS  DisK $500 

SPEED  KING  Disk $5.00 

'   LAST  V-B  Disk $5,00 

CHAMBERS  OF  ZORPKsk $5.00    ; 

PATHFINDER  Disk $5,00 

MATCH  RACER  Disk $5.00 

I  WOMBATS  1  Adventure  Disk $5  00 

NINJA  Disk $7.50 

ELECTRA-GLIDE  Disk $7.50 

SPORTS  SPECTACULAR  Disk  $7.50 

I  THE  GAMBLER  Disk $7  50 

STRATOS  Disk $7  50    I 

FUN  IN  NUMBERS  Disk $7,50 

MIND  MAZES  (Educational) $7,50 

MONEY  TOOLS  (Financial  Utility}.  .   $9.95 

DIG  DUG  Disk $9.95 

REPTON  Disk $9.95 

REAR  GUARD  Disk $9.95 

TECHNA-COLOR  DREAM  Disk  .  .       $9.95 

FREAKY  FACTORY  Disk $9.95 

LASER  HAWK  Disk $9.95 

ROCKET  REPAIRMAN  Disk $9.95 

I   CeST-e  Lft  VE  Disk $9.95 

1  WOMPER  STOMPER  Disk $9  95 

OLIN  EMERALD  (Jr..  Adv.) $9.95 

MOVIE  MAKER  (Graphics) $9.95 

FINANCIAL  COOKBOOK $9  95 

SONGWRITER $9.95 

I   COUNTING  i  ADDING  wth  Tink  ,  ,     $9  95 

!   CHESSMASTER  2000 $12.50 

]   GRANDMA'S  HOUSE  (Educational)   $12.50 

DROPZONE  Disk $12  50 

I   CASTLE  WOLFENSTEIN  Disk.  .      $12.50    I 
BEYOND  CASTLE  WOLFENSTEIN  $12.50 

ALI-ANTS  Disk $12.50 

MOUSE  QUEST  Disk  (64K) $  12.50 

ELECTRONIC  DRUMMER  Disk  .  .     $12.50 

STOCK  MARKET  Game $12  50 

PIRATES  OF  THE  BARBARY  COAST  $12  50 

NICKERBOCKER  Disk $12  50    | 

BOULDER  DASH  Constiucbon  Set  $14.95 
MIDWAY  BATTLES  W»  Game  ,  $14.95 
MOONMIST  (Infocom  Adventure)  $14,95 
MIND  SHADOW  Adventure  64K  .  ,     $14.95 

HACKER  Adventure $14,95 

SEA  STALKER  Adventure $14.95 

STATION  FALL  Adventure $14  95 

HOLLYWOOD  HIJINKS  Adventure  $14,95 
LURKING  HORROR  AA-entur e       .     $14  95 

SSI  50  MISSION  CRUSH $14.95 

SSI  BATTALION  COMMANDER  $14  95 
SSI  PANZER  GRENADIER  ...       .  $14,95 

SSI  FIELD  OF  FIRE $14  95 

SSI  GEMSTONE  WARRIOR $14,95 

MASTERTYPE  (Typing  Tutor)  .  .      $15.00 

BANK  STREET  WRITER $17  50 

I   CUT*  PASTE  W. P.  Disk $17.50    I 

'   SPARTADOS  CONST.  SET  .,  .        $39.50 

DATASOFT  DISKS 

I   VIDEOTITLE  SHOP $12.50    ! 

ALTERNATE  REALITY  (The  City)  $12.50 
ALTERNATE  REAUTY  The  Dungeon  $12  50 

ZORRODisk   $9,95 

SARACEN  Disk $9.95 

CROSSCHECK  Disk $9  95 

GUNSUNGER  Disk    (G4K) $9  95 

TOMAHAWK  Helicopler  Game  64K  $12.50 
THEATER  EUROPE  W»  Game    .     $12  50 

BRUCE  LEE  Disk $12  50 

MERCENARY  Disk $12  50 

THE  GOONIES  Disk $12  50 

CONAN  Disk $12.50 

NEVER  ENDING  STORY  (64K)  .        $12  50 

L221  BAKER  STREET  (64K)     ....     $12  50j 
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WthYonr  Atari  ST! 

Subscribe  to  START  magazine  with  disl^ 


Tutorials  on  START  Disk  brings 
tine  expertise  of  top  ST  program- 
mers right  into  your  computer 


iVIanage  the  power  of  your 
ST  and  make  your  computing 
more  enjoyable  with  utilities 
on  STart  disks. 


Outstanding  animation  and 
graphics  from  the  best  ST  artists 
around,  from  START  Disk  right 
on  to  your  screen. 

Stimulate  your  imagination  and 
your  reflexes  with  games  on 
START  Disk!  How-to  tutorials 
show  you  how  to  write  your 
own  pulse-pounding  games. 


SubmbeWa^  call  1-800-234-7001 


Use  your  Visa  or  MasterCard 


I/O  BOARD 
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BERSERK 


I'm  trying  to  use  BSRk  from  the  August 
1988  Antic  Disk,  and  it  seems  to  have 
wrong  and  missing  commands.  The  first 
problem  was  that  the  program  would  load 
only  partially  into  the  BSR  Controller,  then 
stop  and  lock  up.  Then  the  asterisks  were 
not  showing  the  correct  days  of  the  week 
in  use.  I  seem  to  have  corrected  this  prob- 
lem by  changing  the  (X-1)  to  (X-l)-.l 
in  line  6610. 

Also,  the  program  isn't  sending  the  code 
to  turn  the  appliance  modules  on  and  off, 
although  the  program  seems  to  turn  the 
lamps  on  and  off  all  right. 
Ed  Sacks 
Garden  Grove,  CA 

As  it  says  in  the  BSRk  article,  don't  run 
the  program  from  the  monthly  disk.  Copy 
it  to  another  disk,  then  follow  the  rest  of 
the  instructions  on  page  21  of  that  issue 
Also,  this  program  was  tested  with  stan- 
dard Atari  BASIC,  so  don't  use  TUrbo 
BASIC  or  BASIC  XL/XE.-AUVC  ED 


ANTIC  REFRESHES 

I  want  to  activate  the  unused  4K  block  of 
memory  on  my  Atari  8(X)  (for  my  own 
programs,  only  of  course),  but  I  don't 
know  if  the  ANTIC  chip  refreshes  over 
48K.  Can  you  help  me? 

Ralph  Munoz 
Los  Angeles,  CA 

There  is  no  memory  in  that  4K  block  you 
can  use — unless  you  have  a  memory  up- 
grade that  uses  that  area,  in  which  case 
it  will  be  refreshed.  —  ANTIC  ED. 


LAPTOP  HOOKUP 

How  can  I  connect  my  Atari  800XL  to  my 
Tandy  Model  200? 

William  Higginson,  Jr. 

Mayfleld,  KY 

See  Laptop-To-Atari  Connection  in  the 
November  1987  Antic— ANHC  ED 


OVER-PROTEaED  INDUS 

I  have  an  Indus  GT  disk  drive  for  my 
130XE.  The  drive  seems  to  be  stuck  in 
protect  mode.  Unless  I  can  find  a  way  to 
bypass  or  disable  the  protect  mode,  I  am 
unable  to  save  anything  to  disk.  A  letter 
to  Indus  Systems  was  returned  unopened. 
Can  you  help  me? 

Vinton  Henderson 

APONY 

Future  Systems  Inc.  does  repair  work  on 
Indus  drives.  Their  address  is  21634 
Lassen  Street,  Chatsworth,  CA  91311.  (818) 
407-1 647. -AN1\C  ED 

CHALKBOARD  POWERPAD 

In  your  October  I/O  board  you  had  a 
reader  who  wanted  to  know  where  he 
could  get  the  ChalkBoard  PowerPad.  We 
have  several  dozen  units  in  stock  priced 
at  830  each.  We  also  have  Music  Maestro 
and  Bear  Jam  PowerPad  cartridge/overlay 
software  available  at  S15  each.  (The 
PowerPad  is  useless  alone  and  requires  a 
plastic  overlay  plus  software.) 

If  any  of  your  I/O  Board  readers  could 
find  the  Micro  Illustrator  cartridge  and 
overlay  (ChalkBoard  PowerPad  version 
only!)  they  would  have  an  excellent  draw- 
ing pad  due  to  the  large  drawing  surface 
of  the  PowerPad. 

Gail  Maddox 
American  Techna-Vision 
15338  Inverness  Street 
San  Leandro,  CA  94579 
(415)  352-3787 


Antic  welcomes  your  feedback,  but 
we  regret  that  the  large  volume  of  mail 
makes  it  impossible  for  the  Editors  to 
reply  to  everyone.  Although  we  do 
respond  to  as  much  reader  correspon- 
dence as  time  permits,  our  highest  pri- 
ority must  be  to  publish  I/O  answers 
to  questions  that  are  meaningful  to  a 
substantial  number  of  readers. 

Send  letters  to:  Antic  I/O  Board, 
544  Second  Street,  San  Francisco, 
CA  94107. 
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NEW  CARTRIDGES! 


STAR  RAIDERS 

E.T. 

DIG  DUG 


1020 

Complete  with: 

•  2  Pen  Sets 

•  1  Roll  Paper 

•  Power  Supply  &  Cable 

EXM  PEN  SETS 


COLOR  PRINTER 
PLOTTER 


$14.98 

'        Brand  New 

$  .89  (Black) 
$3.98  (Color) 


ATTN.  DEALERS 
PAC-MAN      i!lfiQ 

Case  of  120  V\J^» 


800  48K  COMPUTER 

w/PAC-MAN^gg^ll 


1025  PRINTER 

$79.98 


>  80  Column 
•  Dot  Matrix 
■  Friction /Tractor 


ASTEROIDS 
DEFENDER 
MISSLE  COMMAND 


GALAXIAN 
PACEMAKER 


1200XL  64K  COMPUTER 

w/PAC-MAN              ^^.J^^^^P  ^ 

■               RccondlUoned 

SBit  I/O  Cable  .  $4.98 

850  Interface  <;»7Q  QO 
Serial,  parallel '?,t»-°;° 

810  DRIVES  $129. 

Reconditloncti 

1027  PRINTER 

•  80  Column                 j^^              ^„^ 

•  Direct  Connect        *_C  ~^  ^^m 

•  Utter  Quality         ^^    Brand  New   ' 

^^.^So^°''$4.98 

S.2S"  DISKS  20  CENTS  EA.* 
QTY.         PRICE 

10    *1.00 

100  ....  $29.95 

•1000  ....  $200 

MJVJORTIY  ARE  imNOTCHED 

COOTAINING  OLD  SOFTWARE 

^  ^M  ^    DISK  DRIVE 

1050  $169. 

;  DOS  XE  ..$9.95 

^^lv^^^l■l■^^l;l^^^::;:::^:::::::;^^:■;o::^::::x■::x:x^ 

DOS  2.5  w/manual..  $4.98 

800  BOARDS 

•  Mother    •  CPU   wur  choice 

•  Pnwpr       •  ROM  $8.98 

Brand  New 

:  1010  Tape  drive  $29 

i  10'  Joystick  ext $  .99 

■  Trackball                       Sq  q.-i 

CARTRIDGES  FOR  800,  XL,  XE 


BASIC  CARTRIDGE  $4.95 

BASIC  TUTOR  (4  BOOKS)  $4.95 

TURMOIL $4.95 

PAC-MAN  (no  box)  $4.95 

DONKEY  KONG  (no  box)  $4.95 

GORF  (400,800)  $4.95 

DEMON  ATTACK  (400,800) $4.95 

DELUXE  INVADERS $4.95 

JOURNEY  TO  THE  PLANETS..  $4.95 

STAR  RAIDERS $4.95 

MISSLE  COMMAND  $4.95 

ASTEROIDS $4.95 

GAIJVXIAN  $4.95 

DEFENDER $4.95 

E  T   $4.95 

PACEMAKER  .  $4  95 


MATH  ENCOUNTER  $7.98 

DANCE  FANTASY  $8.98 

LOGIC  LEVELS $8.98 

MEMORY  MANOR  $8.98 

UNKING  LOGIC  $8.98 

CHICKEN $8.98 

CLAIM  JiraiPER  $8.98 

DELTA  DRAWING  $8.98 

HEY  DIDDLE  DIDDLE  $8.98 

SLIME  (400/800)  $8.98 

ALPHABET  ZOO  $8.98 

ALF  $8.98 

ADVENTURE  CREATOR  ..    $8.98 

DIG  DUG  $14.95 

SKY  WRfTER  $14.95 

FOOTBALL  $14  95 


DEFENDER $14.95 

ROBOTRON $19.98 

TENNIS $19.98 

FINAL  LEGACY  $19.98 

MARIO  BROS  $19.98 

DONKEY  KONG  JR $19.98 

JUNGLE  HUNT $19.98 

MOON  PATROL $19.98 

BATTLEZONE  $19.98 

FOOD  FIGHT $19.98 

HARDBALL $19.98 

FIGHT  NIGHT $19.98 

ONE  ON  ONE  BASKETBALL  ....$19.98 

DESERT  FALCON  $19.98 

NECROMANCER $19.98 

RESCUE  ON  FRACTALUS $19  98 


BALLBLAZER $19.98 

BLUE  MAX $19.98 

STAR  RAIDERS  II  $19.98 

DAVIDS  MIDNIGHT  MAGIC  $19.98 

ARCHON $19.98 

KARATEKA $19.98 

CHOPUFTER  $19.98 

GATO  $24.98 

ACE  OF  ACES $24.98 

LODE  RUNNER  $24.98 

BARNYARD  BLASTER  (gun  req.)  ..  $24.98 

DARK  CHAMBERS $29.98 

AIRBALL $29.98 

SUMMER  GAMES $29.98 

CROSSBOW  (gun  req.)  $29.98 

CRIME  BUSTERS  (gun  req.)  $29.98 


DISK  SOFTWARE  FOR  800,  XL,  XE 


DAVID'S  MIDNIGHT  MAGIC  ....$4.98 

ZORRO  $4.98 

BANDFTS  (48K  400,800)  $4.98 

PROTECTOR  II  $4.98 

CLAIM  JUMPER  $4.98 

SYNTREND  $4.98 

CROSSCHECK $4.98 

MOLECULE  MAN $4  98 


CRYSTAL  RAIDER $4.98 

DESPATCH  RIDER $4.98 

MISSION  ASTEROID  $4.98 

SPIDERMAN  $4.98 

HULK  $4.98 

COMMBAT $4.98 

PREPPIE  I  $4.98 


PREPPIE  n  $4.98 

THE  COlfffT $4.98 

DISK  50  (50  GAMES)  $4.98 

FREAKY  FACTORY $4.98 

LASER  HAWK  $4.98 

ROCKET  REPAIRMAN $4.98 

ADVENTURELAND  $4.98 


PIRATE  ADVENTURE  $4.98 

SECRET  MISSION  $4.98 

VOODOO  CASTLE  $4.98 

TECHNICOLOR  DREAM  $4.98 

STRANGE  ODYSSEY  $4.98 

VISICALC  $24.98 

BOOKKEEPER  W/  num.  keypad...  $29.98 
GET  RICH  $29.98 


Astra 

Double  Density 

Dual  Disk  Drives 
(2  drives  in  1  case) 


n99. 


New! 


Special  buys  on  8-BIT  Hardware! 


SAN  JOSE  COMPUTER 


H      E 


ATARI         STORE 


Sunrise  Plaza  640  Blossom  Hill  Rd,  Son  Jose,  CA  95123 
(408)224-8575  •  BBS  (408)  224-9052 


Light  Gun 

For  use  with  pistol 
games  on  8-Bit  systems 

$34.98 


Light  Gun  Package 

Includes: 

•  Light  Gun  § 

•  Crime  Busters       t 

•  Crossbow 

•  Barnyard  Blaster 


109. 


SHIPPING:  ADD  $5.00  TO  ALL  ORDERS.  AIR  AND  INTERNATIONAL  SHIPPING  EXTRA.  ThL\rS  IT. 

WARRANTY:  90  DAY  WARRANTi'  ON  ALL  ITEMS.  TAX:  CALIFORNIA  RESIDENTS  ADD  7%  SALES  TAX. 

PREPAYMENT:  USE  VISA,  MASTTERCARD.  MONEY  ORDER,  CASHIER'S  CHECK  OR  PERSONAL  CHECK. 

PERSONAL  CHECK  MUST  CLEAR  PRIOR  TO  SHIPMENT.  C.O.D.:  CASH,  CASHIER'S  CHECK  OR  M.O.  ONLY 

Prices  subject  to  change  without  noUce.  Brand  and/or  product  names  arc  trademarks  or  registered  trademarks  of  their  respective  holders 

Ad  produced  on  an  ATARI  ST  using  Publishing  Partner  and  printed  on  an  ATARI  SLM804  PostScript  compatible  laser  printer 


SUPER  DISK  BONUS 


Atar-I  Ching 

The  Computer  of  Changes  foretells  your  fate.  By  Patrick  Harvey 


Let  your  faithful  Atari  "tell 
your  fortune"  and  answer 
your  questions  about  the  fu- 
ture with  this  month's  Super  Disk 
Bonus,  Atari  Ching. 

The  I  Ching  is  a  most  ancient  Chi- 
nese fortune-telling  system.  In  China 
its  users  have  ranged  from  carnival 
fakes  to  generals  and  emperors.  Its 
advice  was  used  in  everything  from 
deciding  what  crop  to  plant  to 
deciding  military  strategy. 

Like  many  other  traditional 
fortune-telling  devices  such  as  the 
Tarot  cards,  the  I  Ching  is  based  on 
using  "organized  randomness"  to  try 
tapping  into  the  underlying  trends 
in  the  universe.  Like  most  such 
devices,  the  key  is  in  how  you  inter- 
pret the  results,  rather  than  the  ac- 
tual results  themselves. 

In  one  form  of  the  I  Ching,  the 
user  shakes  numbered  sticks  in  a 
container  until  one  falls  to  the 
ground.  Atar-I  Ching  simulates  to- 
day's most  widely  used  method — 
tossing  three  coins  to  create  a  set  of 
lines.  Depending  on  the  number  of 
coins  that  land  with  heads  or  tails 
up  (ancient  Chinese  coins  were  in- 
scribed on  only  one  side  and  blank 
on  the  other)  the  line  will  be  Yin, 
Yang,  moving  Yin  or  moving  Yang. 
This  is  done  six  times  to  produce  a 
"hexagram." 

Yang  lines  are  solid  and  Yin  lines 
are  broken.  If  there  are  any  moving 
lines  (all  three  coins  are  the  same) 
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a  second  hexagram  will  be  drawn  by 
changing  the  moving  lines. 

ASKING  QUESTIONS 

Atar-I  Ching  will  wait  for  you  to 
mentally  form  your  question  and 
achieve  the  properly  blank,  recep- 
tive state  of  mind.  The  BASIC  file  is 
on  this  month's  Antic  Disk  as  ICH- 
ING.BAS  and  can  be  started  by 
selecting  it  from  the  main  menu. 
Then  "toss  the  coins"  by  pressing 
the  [SPACEBAR]  three  times. 

Using  the  Atari's  random  number 
generator,  the  coins  are  tossed  to  de- 
termine a  hexagram.  Like  binary 
code,  six  lines  of  either  yin  or  yang 
provide  64  distinct  hexagrams. 


Based  on  the  text  associated  with 
each  of  the  hexagrams  and  compo- 
nent trigrams,  plus  your  own  intui- 
tive understanding  of  the  question, 
you  can  develop  a  forecast  of  future 
events.  As  the  I  Ching  texts  tend  to 
be  very  vague,  this  can  require  a  lot 
of  imagination. 

Atar-I  Ching  is  a  colorful,  at- 
mospheric program  written  by 
Patrick  Harvey  of  Mountain  View, 
California.  This  is  his  first  Antic 
publication  and  he's  a  computer 
engineer  doing  customer  training 
for  National  Semiconductor's  32-bit 
microprocessors. 

Admittedly,  Atar-I  Ching  is  not 
quite  as  long  as  most  of  the  other  Su- 
per Disk  Bonus  programs  that  ap- 
pear in  Antic.  However,  the  listing 
does  include  many  lines  crammed 
with  interpretive  text,  which  would 
be  particularly  time-consuming  to 
type. 

Your  August  1989  Antic  Disk- 
featuring  Atar-I  Ching  as  well  as  ev- 
ery type-in  program  from  this 
issue — ^will  be  shipped  to  you  within 
24  hours  after  your  order  is  received. 
Just  phone  Toil-Free  to  the  Antic 
Disk  Desk  at  (800)  234-7001.  The 
monthly  disk  is  only  $595  (plus  $2 
for  shipping  and  handling)  on  your 
Visa  or  MasterCard.  Or  mail  a  S5.95 
check  (plus  S2  shipping  and 
handling)  to  Antic  Disk  Desk,  544 
Second  Street,  San  Francisco,  CA 
94107.  A 
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ITtpe-In  Software 


FEATURE  APPLICATION 


Customer  List  Manager 


Mtich  more  than  a  phonebook 


By  Thomas  Andrews 


Keep  your  important  lists  up-to-date 
with  this  powerful  but  user-friendly 
BASIC  telephone/mailing  list  database. 
Works  on  8-bit  Atari  computers  with  at 
least  48K  memory,  disk  drive  and  a 
printer. 


My  family  operates  a  retail 
vegetable  business  on  our 
farm  in  central  New  York. 
We  have  a  series  of  lists  of  customers 
who  make  quantity  purchases  each 
year  and  wish  to  be  informed  when 
certain  seasonal  products  become 
available. 

When  we  call  these  customers  we 
want  to  have  some  information  at 
hand  concerning  each  one's  prefer- 
ences and  a  history  of  recent  orders 
to  aid  them  in  making  this  year's  pur- 
chases. Customer  List  Manager  lets  us 
find  this  information  with  ease.  It's 
much  better  than  the  method  we  used 
before  our  Atari  800  arrived — a  spi- 
ral notebook. 


Customer  List  Manager  is  a  tele- 
phone/mailing list/database  program. 
Each  record  contains  a  customer's 
name,  phone  number  and  address, 
along  with  the  type  of  product  they 
want,  some  notes  on  personal  prefer- 
ences and  a  five  year  history  of  past 
orders.  Each  list  has  a  title  and  year 
attached  to  identify  it. 

The  list  can  be  displayed  on  the 
screen,  printed  on  most  80-column 
printers,  or  output  to  a  word  proces- 
sor file.  Entries  can  be  edited  or 
deleted,  and  histories  updated,  in  one 
easy  operation,  thanks  to  the  pro- 
gram's sorting  and  selecting  routines. 

The  records  in  each  list  (referred  to 
as  "items"  within  the  program)  can 


be  sorted  on  one  or  two  levels.  Sub- 
groups of  list  records  can  be  selected 
for  processing  under  a  search  routine 
which  allows  use  of  a  wildcard  char- 
acter in  the  search  sequence.  In  case 
of  disaster,  the  list  can  be  recon- 
structed from  the  last  editing  opera- 
tion or  from  the  word  processor  file. 
All  this— and  it  can  be  customized  to 
better  suit  your  own  needs  as  well. 

GEHING  STARTED 

Type  in  Listing  1,  MANAGER.BAS, 
and  check  it  with  TYPO  II.  Be  sure 
to  SAVE  a  copy  before  you  RUN  it.  If 
you  have  trouble  typing  the  special 
Atari  characters  in  lines  50,  60,  65, 
85,  and  86,  don't  type  them.  Listing 
2  will  create  these  lines  for  you.  Type 
in  Listing  2,  check  it  with  TYPO  II, 
and  SAVE  a  copy. 

When  you  RUN  Listing  2  it  wUl  cre- 
ate a  file  containing  these  hard-to-type 
lines  called  UNES.LST.  Merge  this  file 
into  Listing  1  by  typing  LOAD 
"D:MANAGER.BAS"  and  then  ENTER 
"D:LINES.LST".  Be  sure  to  SAVE  the 
final  version  of  the  file. 

If  you  have  the  Antic  Monthly  Disk, 
you  should  copy  MANAGER.BAS  to 
another  disk  before  you  try  to  use  it. 
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since  the  program  needs  to  be  able  to 
write  files  to  disk.  You  can  either  copy 
the  file  from  DOS  using  command  C 
or  O,  or  LOAD  and  SAVE  the  file  from 
BASIC.  Make  sure  the  disk  to  which 
you  copy  MANAGER.  BAS  also  con- 
tains DOS. 

The  program  is  menu  driven  and 
most  operations  are  self-explanatory. 
When  you  first  RUN  the  program  the 
main  menu  will  appear  If  no  list  has 
been  loaded,  only  options  A  (Start 
New  List),  C  (Load  List  From  Disk), 
and  H  (Change  List  Title)  will  operate. 

Note  that  the  [BREAK]  key  is  NOT 
disabled.  To  return  to  the  main  menu 
after  an  accidental  BREAK,  type 
GOTO  100.  Records  in  memory 
should  remain  intact! 

CUSTOMIZING  LISTS 

Customer  List  Manager  uses  a  vari- 
able length  field  and  record  system  to 
lower  wasted  memory  space.  Provi- 
sions have  been  made  to  limit  the  to- 
tal Ust  size  to  19,000  characters  and/or 
100  records.  This  size  allows  the  pro- 
gram and  storage  area  to  fit  in  a  48K 
Atari  with  standard  DOS  2.5  config- 
uration with  about  IK  bytes  left  over 

To  change  the  maximum  list 
length,  change  the  value  assigned  to 
MAX  in  line  40.  To  change  the  maxi- 
mum number  of  records,  change  the 
value  of  HUN  in  the  same  line. 
Remember  that  each  record  allowed 
uses  seven  bytes  of  bookkeeping 
overhead. 

Each  record  has  ten  fields.  The  first 
five  are  labeled  NAME,  PHONE, 
ADDR.,  TYPE,  and  NOTES.  These 
labels  can  be  changed  in  line  90  by 
changing  FNAMES.  Be  sure  to  use  no 
more  than  five  characters,  padded 
with  spaces  if  shorter,  and  separate 
each  label  with  a  colon. 

The  last  five  fields  contain  the  his- 
tory of  the  last  five  years  and  the  labels 
for  these  fields  are  determined  by  the 
year  of  the  list.  The  maximum  length 
of  any  field  is  60  and  the  minimum 
is  1.  Anything  outside  these  limits  will 
be  either  cut  off  or  padded  with  a 
space. 


Both  upper  and  lower  case  charac- 
ters are  allowed  in  the  list.  Inverse 
characters  are  not  allowed  and  will  be 
changed  to  normal  if  they  are  used. 

Menu  selections  D,  E,  and  G  (edit- 
ing, saving,  and  printing)  allow  the 
operation  to  be  performed  on  only 
part  of  the  items  on  the  list.  Items  are 
flagged  for  processing  through  the  use 
of  a  search  routine  that  uses  the  ques- 
tion mark  (?)  as  a  wildcard  character 

As  an  example,  a  search  of  phone 
numbers  using  the  sequence  5?5  will 
flag  all  items  with  two  fives  separated 
by  any  other  character  in  the  phone 
number  field.  Use  all  capital  letters  in 
the  search  sequence,  and  Customer 
List  Manager  will  search  for  both  up- 
per and  lower  case. 

To  change  the  wildcard  character, 
change  the  question  mark  in  the  ma- 
chine language  routine  SRCH  in  line 
60  to  any  character  you  wish.  Keep 
in  mind  that  the  character  used  as  a 
wildcard  cannot  be  used  as  a  regular 
character  DON'T  change  anything 
else  in  line  60  as  this  could  cause  your 
computer  to  lock  up.  Also  change  the 
screen  prompt  in  line  I5O6O  as  a 
reminder  that  a  different  wildcard  is 
in  effect. 

EDITING 

The  editing  option  is  quite  simple. 
There  are  three  editing  modes — edit 
and  update,  edit  only,  and  update 
only.  Update  means  that  the  list  year 
is  incremented  by  1,  the  oldest  year 
of  history  is  dropped,  the  remaining 
history  is  shifted,  and  a  new  year  is 
added  to  the  end  of  each  record. 

The  update-only  mode  is  com- 
pletely automatic  and  all  list  items  will 
be  updated.  A  space  is  inserted  for  the 
new  history  year  field  as  the  new  list 
is  written  to  a  special  edit  file  on  the 
disk.  After  the  entire  list  has  been  up- 
dated, the  old  list  will  be  cleared  from 
memory  and  the  new  list  is  input 
from  the  edit  file. 

The  Edit  and  Update  mode  allows 
you  to  enter  information  for  the 
newly-added  year.  You  can  also 
change  the  contents  of  any  of  the 


fields,  or  you  can  delete  a  whole  item 
(or  record)  from  the  list.  You  must  go 
through  all  of  the  items  on  the  list  in 
this  mode.  To  edit,  move  the  cursor 
to  the  desired  line  and  change  it  to 
read  as  you  like. 

Because  of  the  way  the  List  Man- 
ager reads  the  list  item  from  the 
screen,  the  INSERT  and  DELETE  fionc- 
tions  are  disabled  during  editing,  as 
is  the  clear  screen  command.  When 
you  have  finished  editing  an  item 
press  [CONTROL]  [A].  The  item  is 
read  from  the  screen  and  placed  in  the 
edit  file  while  Customer  List  Manager 
goes  on  to  the  next  item. 

To  delete  an  item  press  [CONTROL] 
[D].  The  item  will  not  be  sent  to  the 
edit  file.  (A  last-chance  'Are  you  sure?" 
question  is  asked  before  deletion  is 
done.)  If  an  item  gets  so  messed  up 
during  editing  that  it  would  be  easier 
to  start  over,  press  [ESC]. 

The  edit-only  mode  allows  the 
selection  of  part  of  the  entries  for 
processing.  A  menu  comes  up,  letting 
you  choose  how  much  of  your  file 
you  want  to  edit.  If  you  decide  to  just 
edit  some  of  the  items  (option  B),  you 
will  be  asked  which  field  you  want 
to  use  for  the  selection.  Enter  one,  and 
you  will  then  be  prompted  for  the 
search  sequence  to  use  for  a  match. 
Remember,  the  ?  character  is  the  wild 
card  that  matches  any  other  character 

If  you  want  to  leave  edit-only  mode 
without  editing  all  the  items  flagged 
for  processing,  press  [CONTROL] 
[M] .  The  rest  of  the  flagged  items  will 
be  moved  to  the  edit  file  on  disk,  with 
no  changes.  The  program  will  load 
the  new  list  from  the  disk,  ready  for 
any  further  operations. 

In  all  modes,  once  the  editing  oper- 
ation is  done,  the  edit  file  is  left  on 
the  disk  as  a  backup  file  that  can  be 
recovered  using  main  menu  option  I. 
Each  time  a  list  is  edited  the  old  edit 
file  is  replaced  with  a  new  one. 

List  sorting  can  be  done  on  any  two 
fields.  The  primary  field  is  selected 
first,  followed  by  the  secondary.  To 
sort  on  only  one  field,  use  the  same 
one  for  both  primary  and  secondary. 
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The  sort  routine  is  completely  auto- 
matic once  started. 

PRINTING 

The  print  option  assumes  a  generic, 
no  frills,  80-column  printer  using  con- 
tinuous paper  Therefore,  it  ought  to 
work  on  just  about  any  printer  you 
would  connect  to  your  Atari.  It  is  not 
necessary  to  print  the  entire  Ust  if  you 
only  need  part  of  the  pages.  Customer 
List  Manager  will  print  any  individual 
page  or  group  of  pages,  and  as  with 
editing,  you  may  select  to  print  only 
those  records  which  contain  a  speci- 
fied string  in  the  chosen  field. 

If  your  printer  has  capabilities  be- 
yond the  minimum  supported  here 
(and  most  do)  you  might  wish  to  write 
a  new  printer  routine  to  take  advan- 
tage of  them.  But  if  you  don't  want 
to  do  this,  the  program  will  print  a  list 
to  a  disk  file  that  most  word  proces- 
sors should  be  able  to  use.  You  can 
then  use  your  word  processor  to  add 
any  special  touches  you  want  before 
you  print  out. 

Customer  List  Manager  has  the  abil- 
ity to  reconstruct  a  list  from  the  word 
processor  file  (without  the  formatting 
commands  or  any  other  changes), 
providing  a  second  emergency 
backup  system.  Use  menu  option  I. 

You  can't  merge  two  lists  with  Cus- 
tomer List  Manager,  but  you  can 
merge  files  using  your  word  proces- 
sor. Load  the  two  list  files  into  the 
word  processor  one  after  the  other. 
(Do  not  mix  Customer  List  Manager 
word  processor  files  with  files  saved 
with  menu  option  E.  They  use  a  dif- 
ferent format.) 

Remove  the  list  title  and  year  from 
the  second  list  and  save  the  com- 
pleted Ust  on  your  disk.  Load  the  com- 
bined list  into  Customer  List  Manager 
using  menu  option  I.  If  the  combined 
list  is  longer  than  the  maximum  al- 
lowed, the  program  will  load  as  many 
records  as  will  fit,  then  stop. 

It  has  been  my  experience  that 
most  practical  application  programs 
cannot  precisely  fit  the  needs  of  all 
users,  and  databases  are  no  exception. 


That  is  why  there  are  so  many  data- 
base programs  out  there — each  user 
has  different  requirements. 

Beyond  changing  field  names  and 
memory  limits  as  discussed  above, 
further  changes  would  require  more 
extensive  rewriting  of  the  program 
code.  I  have  tried  to  program  in  a 
fairly  modular,  struaured  form  to 
make  this  easier  to  do.  If  Customer 
List  Manager  does  not  suit  your  needs, 
study  the  listing  and  the  instructions 
below,  so  you  can  adapt  the  data- 
base the  way  you  want  it. 

ABOUT  THE  PROGRAM 

At  the  heart  of  Customer  List  Man- 
ager lies  FIND,  a  machine  language 
routine  by  Scott  Sheck  published  in 
the  December,  1984  Antic.  The  arti- 
cle, "Word  Storage  Space  Saver," 
detailed  an  efficient  method  for  stor- 
ing strings  of  varying  lengths. 

As  presented,  FIND  required  that 
the  strings  be  stored  sequentially,  un- 
padded with  spaces,  with  the  first 
character  of  each  changed  to  inverse 
as  a  delimiter.  The  routine  also  re- 
quired that  an  inverse  character  be  ap- 
pended to  the  end  of  the  last  field. 
Each  string  could  be  no  longer  than 
255  characters. 

FIND  started  at  the  beginning  of  a 
string  and  counted  inverse  characters 
until  the  desired  field  was  encoun- 
tered. FIND  then  determined  the 
string  position  of  the  start  and  the 
length  of  the  field. 

This  sequential  access  would  be 
fine  for  most  text  adventures  since 
FIND  is  quite  fast.  However,  in  the 
case  of  a  search  or  sort  operation 
where  100  or  more  calls  to  this  rou- 
tine are  possible,  or  even  likely, 
processing  time  mounts  up  quickly. 

I  added  an  index  to  the  main  stor- 
age area  to  provide  pseudo-random 
access.  The  string  position  of  the  first 
character  of  each  record  is  placed  in 
a  numerical  array  called  LI.  Now,  if 
I  want  to  examine  the  fifth  field  of  rec- 
ord number  42,1  use  the  contents  of 
LI(42)  as  a  starting  point  and  go  five 
fields  from  there.  This  provides  very 


fast  access — nearly  as  fast  as  if  I  had 
used  fixed-length  fields  and  calculated 
the  position — and  is  much  less  waste- 
ful of  RAM. 

Since  the  FIND  routine  uses  inverse 
characters  as  delimiters,  it  follows  that 
inverse  characters  cannot  be  allowed 
in  the  middle  of  a  field.  This  necessi- 
tates a  routine  that  does  a  character 
by  character  check  of  the  input  field, 
changing  the  first  character  to  inverse 
and  the  rest  of  the  characters  to 
normal. 

Since  a  BASIC  routine  to  do  this 
would  be  quite  slow,  I  wrote  the  ma- 
chine language  routine  CHNGR  to  do 
it  more  quickly.  The  call  for  CHNGR 
is: 

DMY=  USR(CHNGR,ADR(FIELD$), 

LEN(FIELDS)) 

CHNGR  is  the  address  of  the  rou- 
tine in  memory  that  operates  on  the 
string  FIELDS. 

The  USR  routine  SRCH  will  exam- 
ine any  block  of  memory  for  an  oc- 
currence of  a  specified  sequence  of 
characters.  The  sequence  may  contain 
any  combination  of  letters,  numbers, 
and  punctuation.  Capital  letters  (nor- 
mal video)  are  checked  as  both  upper 
and  lower  case.  All  other  characters 
are  examined  only  in  the  case  and 
video  type  actually  specified.  The  call 
for  SRCH  is: 

X  =  USR(SRCH,ADR(SEQS), 

LEN(SEQJJ),ADR(AREAS), 

LEN(AREAS)) 

SRCH  is  the  address  of  the  routine 
that  attempts  to  find  SEQS  in  string 
AREAS.  A  one  is  returned  in  X  if  the 
sequence  is  found  anywhere  in  the 
search  area,  and  a  zero  if  the  search 
was  unsuccessful.  The  length  of  the 
sequence  may  vary  from  1  to  255 
characters.  The  search  area  can  be  any 
length  from  IK  to  64K. 

SORT  ROUTINE 

The  sort  routine  uses  an  insertion 
sort  on  two  levels.  For  those  un- 
familiar with  the  insertion  sort,  con- 
sider a  file  drawer  that  needs  sorting. 
You  start  on  either  end  and  thumb 
through  the  folders  one  at  a  time  un- 
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til  you  find  one  that  is  out  of  the 
proper  sequence.  You  then  check 
back  through  the  folders  you  have  just 
done  until  you  find  the  proper  posi- 
tion for  the  misplaced  one. 

Then,  you  shift  the  folders  to  make 
room  and  insert  the  one  in  question 
in  the  right  spot  and  go  back  to  where 
you  left  off.  When  you  reach  the  end, 
the  sort  is  done.  This  type  of  sort, 
while  certainly  not  the  fastest  type 
available,  has  the  advantage  of  being 
very  fast  if  most  of  the  items  are  al- 
ready in  order,  as  is  usually  the  case 
with  Customer  List  Manager.  It  is  also 
nearly  as  easy  to  program  in  BASIC  as 
the  bubble  sort  and  is  usually  faster. 

It  is  important  to  note  that  I  do  not 
actually  move  the  text  of  the  list 
around  during  the  sort — I  change  the 
order  of  the  pointers  to  that  text.  The 
reason  for  this  is  simple:  When  I  move 
a  pointer,  I  only  have  to  move  six 
bytes.  Since  the  size  of  each  record 
(item)  in  a  list  can  vary  anywhere  from 


10  to  600  bytes,  not  only  would  I  have 
to  move  more  bytes,  but  I  would  have 
to  determine  the  length  of  the  record 
I  have  to  move  each  time.  It  is  easy 
to  see  which  way  is  better. 

The  usual  method  used  during  an 
insertion  sort  with  a  numerical  array 
is  to  shift  the  array  elements  one  at 
a  time  as  you  are  checking  for  proper 
position.  In  this  sort,  I  wait  until  I 
have  found  the  proper  position  and 
shift  the  elements  in  a  block  using  a 
machine  language  block  memory 
mover,  SHIFT. 

This  routine  is  a  litde  different  than 
the  usual  block  mover  in  that  it  is 
bilateral.  Most  routines,  including  the 
string  funaions  of  Atari  BASIC,  will 
not  work  for  moving  in  both  direc- 
tions when  the  source  and  destination 
blocks  overlap.  SHIFT  checks  for  the 
direction  of  the  move  and  starts  at  the 
correct  end  of  the  block  to  properly 
shift  it  ui  that  direction.  The  call  for 
SHIFT  is  as  follows: 


DMY=  USR(SHIFT,HERE,THERE, 

LENGTH) 

SHIFT  is  the  address  of  the  routine, 
HERE  is  the  address  of  the  first  byte 
of  the  source,  THERE  is  the  address 
of  the  first  byte  of  the  destination  and 
LENGTH  is  the  number  of  bytes  to 
move. 

To  determine  the  address  of  the  nu- 
merical array,  I  DIMensioned  a  string 
just  before  it,  determined  the  address 
of  that  string  with  the  ADR  function, 
and  added  the  DIMensioned  length  of 
the  string  to  it.  Each  element  of  the 
array  takes  six  bytes.  (Remember  that 
the  first  element  of  the  array  has  a  sub- 
script of  0.)  Since  I  do  not  use  LI(0) 
in  CLM,  I  added  six  more  bytes  to  the 
base  address  for  LI.  A 

Thomas  Andrews  has  a  degree  in  electri- 
cal engineering.  He  found  his  Atari  800, 
some  software  and  12  issues  of  Antic  at 
a  garage  sale  in  1985- 

Listing  on  page  34 
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HACK  BACK 

Special  OFFER 

fhe  Alpha  Syslsrri!,  HACK  WCK  contains  oil  out 

(inest  ptoducls  (oi  making  Bock-up  copies, 

Anoiyxlng,  Unaetslonding  and  Protecting  your 

Atari  ptogiams.  It  comas  complete  wiin  Atari 

Pioleclion  Techniques  (BooH  ond  Disk  I).  Advanced  Prote<;lion  Techniques  (Book  and  Disk  II),  The 

Chipmunk,  The  Sconalyiter,  The  hnpersonatof  and  Disk  Pock  1 000  Worth  over  S 1 50  Get  ttiem  oil 

for  the  specio!  price  oi    Jus!  $99.95 

Atari  Software  Protection  Techniques  Vol  I  &  il 

These  Book  and  Disk  packagris  detail  the  most  odvonced  copy  protection  metfiods  in  use  today  They 
guide  you  (hroogh  ine  mettioGS  used  to  create  the  protection  as  well  as  the  copying  techniques  to  get 
around  them.  They  include  intorrnotion  on  Phieoking  •  Hacking  •  On-line  secunty  •  Block  txixes  •  Sel(- 
deslTUCling  programs  •  Pirate  bulletin  board  systems  •  Logic  bornbs  ■  New  piracy  lows  •  Hardwaie 
dolo  keys  •  Weak  sectoring  (Phantom,  Fuzzy  ona  unstobFe  sectors)  •  Overlilled  tiocks  •  CRC  errors 
Bank  Select  cartridges  ond  MUCH,  MUCH  MORE  The  disks  Include  automotic  program  protectors. 
Protection  Scanners,  directoiy  niding  ond  mote. 
■OOK I  and  DISK  I  $24.«S 

BOOK  IIMdvancvdpratacUon)  and  DISK  II    $24.95 
$p«clal  on*r,  Order  both  »t>  lor  Only  $39.9S 

CHIPMUNK 

Automotic  Disk  Bock-Up  System  Moke  perfeolly  running  unprolected  bock-up  copies  ot  hundreds  of 
Itie  most  popular  Atoii  programs.  Chipmunk's  sophisticated  ptogramining  Autoraoticollv  finds  and 
HMOVES  copy  proIMtlon  from  most  Atoti  prc^toms.  Back-up  even  heovily  protected  progroms  with 
ease  Finally,  o  bock-up  system  that  needs  no  special  hordwdre  or  skills, 
(If  you  need  a  full  list  of  what  Chipmunk  copies,  coll  or  write  (or  out  free  cotolog)  $34.95 


tS^An 


X0^ 


PARROT  II 

An  Ail  New  Parrot  sound  digitizer  tor  your  Aiori  Portor  II  is  o 
soptiisticoled  new  hardwore  device  fhal  plugs  into  your  joystick 
port.  Parrot  i!  has  two  inputs.  One  tor  u  miciophone  and  one  for  o 
powered  source  such  as  a  tape  player,  rodio  or  Compact  Disk, 
The  Powerful  Parrot  II  sotlwore  lets  you  record  sounds  into  your  computer  ond  play  ttiem  bock  on  any 
Aton.  Parrot  II  turns  your  computers  keyboord  into  o  musical  instrument  with  nine  ditterent  sounds 
covering  ttiree  octaves  each  The  sounds  con  be  anything,  o  dogs  bork.  o  piono,  a  complete  drum 
set.  a  symphony  or  youi  own  voice, 

Porrol  II  lets  you  modify'  the  sounds  on  o  grophic  display  to  create  brand  new  sounds  and  specioi 
effects  Best  of  oil,  the  sounds  ond  voices  con  be  put  into  your  own  programs  that  con  be  used  on 
any  standard  ,^tari.  Explore  the  world  ot  digitol  sound  and  music      ONLY  $59.95 
PTC-Recorded  Sound  Diik  iviore  pre-recorded  sounds  for  Parrot  $4.95 
MSROT  It  Osmo  Disk  poes  riot  require  Parrot  to  run)  $5.00 


POP-N-ROCKER 


Sitoiiolyier  Automatically  .scon  &  onolyze  commeioial  programs  Unlock  programming  secrets  and 
learn  (tom  the  masters  $29.95 

iiDpiraoiioKir  Carliidge  to  Disk  back  up  system.  Create  tunning  bock-up  copies  of  any  cortridge 
Jjfftl (upIoiBK)    $29.95 

tJS>*  CHEAT 

Gel  more  from  your  games  with  CHEAT  Tired  of  spending  days  trying  to  beat  a  game?  Tired  of  gefling 
stuck  just  wtien  you  need  onottier  life'  Cheat  is  an  innovative  new  product  ttiot  gives  you  ttie  ctionce 
you  need  to  Peal  your  favorite  gomes,  Ctieof  works  witfi  hundreds  of  Atori  gomes  to  give  you 
unlimited  lives  or  power  End  the  frustration  and  get  hours  more  enjoyment  from  your  games.  (Caii  or 
wrile  Alpna  Sysiems  for  our  free  caloiog  wilfi  o  full  list  o!  Itie  programs  trial  work  witti  Cfieat)    ONIY  $24.95 

BASIC  TURBOCHARGER 

NOW  for  the  Iirst  time  o  BASIC  programmer  con  get  the  power,  flexibility  and  incredible  speed  of 
machine  language  BASIC  TURBOCHAI^GER  is  o  book  and  disk  packoge  that  contains  over  1 50 
ready  to  use  machine  language  routines.  Complete  instructions  show  how  to  add  them  to  your  own 
BASIC  programs  to  get  these  features  ond  more:  •  Smooth  Scrolling  •  Player/ l\iissile  control  •  Load  & 
Save  Picture  files  •  Sorting  ond  Scorching  •  Specioi  Effects  Grophics  •  Incredible  Speed  •  Mucn,  Much 
t^ore  •  Over  1 50  programs.  >bu've  heard  of  the  power  of  Assembler,  now  horness  it  for  your  own 
needs.   <94  or 
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216-374-7469 

VISA  t  MASTERCARD,  ORDER  BT 
PHONE,  OR  SEND  MONEY  ORDER  TO: 


0  last  paced,  multi-player  trivia  gome  that  mixes  questions 

with  real  songs  (digitized 
with  Patrot).  Be  the  first  to  Identify  Ihe  songs  and  answer  the  music  trivia  questions,  Pop-N-Rocker 
comes  with  three  data  disks  and  lets  you  odd  new  questions  so  it  will  never  get  old,  *u  con  use  o 
Patrol  Sound  digitizer  to  add  new  songs  too!  Use  ony  kind  of  music  from  Rock  to  Classical  to 
Nursery  Rhymes,  A  new  concept  in  entertainment  and  a  perfect  odd-on  for  Parrot  $24.95 

COfyiPUTEREYES  &  IVIAGNIPRINT  11  + 

Turn  your  computer  info  o  digitol  porlroi'  studio.  This  complete  package  lets  I 

you  capture,  sove  ft  print  digitol  imoges  from  your  Video  Comera,  VCR 

or  TV.  COMPUTEREYES  hardware  plugs  directly  into  your  joystick  ports  for 

easy  use.  Print  your  picture  on  a  6  foot  poster  $•119.95 

ComputerEyes  camera  system 

Comes  complete  with  everyfhing  above,  plus  a  block  and  while  video 

camera  and  connecting  coble,   $329.95 

Graphics  9  Software  -  Add  o  new  dimension  to  yout  COIvlPUTEREYES 

pictures  -  captures  images  in  1 6  shades  of  grey  $12.00 

Magnlprint  II  + 

Easily  Ihe  most  powerful  print  program  ovolloble  today  Print  grnphlcs  from  almost  any  format  in 

hundreds  of  shapes,  sizes,  and  shades.  Supports  color  printing  and  lets  you  create  giant  posters. 

Magnlprint  II  +  lets  you  stretch  ond  squeeze.  Invert,  odd  text,  adjust  shading  dnd  much  more. 

Works  with  EPSON,  NEC,  Citoh,  Panasonic,  Gemini,  Stat,  mmO} .  and  compatible  printers,  (850 

interface  or  equivalent  required),  $24.95 

Graphics  fl'ansformer 

Now  you  con  combine  the  most  powerful  teotures  of  oil  your  graphics  programs  Create  print  shop 

icons  from  a  Koala  pod  picture,  from  0  photo  digitized  with  ComputerEyes,  or  any  picture  tile, 

Graphics  Ttonslormer  lets  you  Slirink,  Enlarge  and  Merge  pictures  for  unequoled  flexibility,     $22.95 

YOUR  ATARI  COMES  ALIVE 

SAVE  MONEY  Finally  on  alternative  to  buying  expensive  computer  add-ons.  M3ur  Atari  Comes  Alive 
shows  you  how  to  butlt  them  yourself.  This  'How-To'  book  and  disk  package  gives  you  complete 
step  by  step  instructions  and  programs  needed  to  built  and  control  these  exciting  devices  and  MORE: 
•  Light  Pen  •  Light  &  Motor  Controllers  -Alarm  Systems  •  \toice  Recognition  •  Environmental  Sensors 
•Doto  Decoders  •  More  than  1 50  pages  ^ur  Atari  Comes  Alive  $24.95 


ALPHA  SYSTIMS  1012  SKYUNO  DRIVE  MACEDONIA,  OH  44056      FREE  BONUS:  DELUXE  SPACE  GAMES  (3  games 
on  a  disk)  Free  with  ony  order  o!  3  or  more  ilems.  Include  S3-00  shp  &  hdig  (US  Conada)  Ofilo  res.  add  5  '/2%  sales  lax 
Foreign  mders  odd  SB. 00  shp  &  fildg.  Coll  or  write  for  free  cotolog.  Customef  Service  Una  (216)  467-5665  M-F  9-3 
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VRename 

BASIC  variable  renaming  tool. 


By  Doug  White 

Clear  up  old  BASIC  programs  and  make  your  own 

programs  more  readable  by  renaming  the  variables  with 

this  handy  BASIC   utility.    This   BASIC   program 

works  on  all  8-bit  Atari  computers  of 

any  memory  size,  with  disk  drive. 


Have  you  ever  gotten  a  BA- 
SIC program  out  of  an 
old  magazine  or  from  a 
friend  that  was  difficult 
to  read  because  it  had  cryptic  names 
for  all  of  the  variables?  While  Atari  BA- 
SIC allows  variable  names  up  to  120 
characters  long,  some  of  the  more 
primitive  BASIC  interpreters  on  some 
computers  allow  a  maximum  of  two 
characters  for  each  variable  name.  If 
you  didn't  write  the  program  how  can 
you  tell  what  names  like  R9,  D$,  L2 
and  X$  mean? 

Or  have  you  used  a  subroutine  from 
an  old  program  in  a  new  BASIC  pro- 
gram that  you  were  writing?  There'd 
be  a  good  chance  that  some  of  the 
variables  were  not  compatible  be- 
tween that  subroutine  and  the  rest  of 


the  program.  You  had  two  choices — 
either  change  every  occurance  of 
each  problem  variable  name  through- 
out the  entire  program,  or  else  add 
program  lines  to  assign  needed  data 
from  the  variable  names  that  the  pro- 
gram uses  to  the  corresponding  vari- 
able names  that  the  subroutine  uses. 

The  first  solution  is  time-consum- 
ing. The  second  creates  confusing 
"spaghetti  code,"  since  the  same  piece 
of  data  will  have  a  different  name  de- 
pending upon  where  it  is  in  the 
program. 

To  help  you  (and  me)  write  under- 
standable programs  and  decipher  pro- 
grams already  owned,  I  have  con- 
structed a  programming  utility  that 
will  let  you  rename  any  or  all  of  the 
variables  in  a  BASIC  program. 


This  programming  tool  is  simple  in 
theory  but  powerful  in  practice. 
VRename  can  be  used  on  completed 
programs  stored  on  disk.  But  it  is 
primarily  designed  to  let  you  modify 
the  variable  names  of  a  program  that 
you  are  currently  writing.  For  this  rea- 
son the  utility  does  not  change  the 
margins,  colors,  or  any  other  feature 
of  the  display  that  you  may  have  cus- 
tomized for  your  own  convenience. 

GEHING  STARTED 

Type  in  Listing  1,  VRENAME.LST, 
check  it  with  TYPO  II.  This  utility 
will  not  work  with  SAVE  and 
LOAD— so  LIST  a  copy  of  it  to  disk 
before  you  use  it  the  first  time.  The 
utility  deletes  itself  from  memory  af- 
ter it  is  finished,  so  once  you  RUN  it 
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you'll  have  to  retype  the  whole  pro- 
gram if  you  don't  have  a  copy  safe  on 
disk. 

Rather  than  making  up  a  useless  test 
program  for  demonstration  purposes, 
I've  included  a  program  that  contains 
a  Shellsort  routine  in  lines  500-680  for 
sorting  numbers  stored  in  an  array 
named  A()  into  descending  order. 
Type  in  Listing  2,  SHELSORT.BAS, 
check  it  with  TYPO  II,  and  SAVE  a 
copy  to  disk. 

The  Shellsort  is  much  faster  than 
the  commonly  used  bubble  sort.  If 
you  want  to  use  it  in  your  programs, 
just  rename  A()  to  whatever  name 
your  program  uses.  If  you  need  the 
numbers  sorted  in  ascending  order, 
change  the  <  character  in  line  620  to 
a  >  character. 

USING  VRENAME.LST 

Now  you  can  RUN  the  Shellsort 
program  to  try  it  out.  Then,  with  the 
sorting  program  still  in  memory, 
ENTER  "D:VRENAME.LST"  and  RUN 
it. 

The  first  variable  used  in  the  sort 
program,  A(,  will  be  shown  on  the 
screen.  To  rename  it,  type  \Y]  and 
press  [RETURN].  Now  type  in  the 
new  name  and  press  [RETURN] .  Since 
the  variable  A(  is  an  array,  your  new 
array  name  must  also  end  with  a  ( 
character.  Type  \Y]  and  press  [RE- 
TURN] if  the  name  is  spelled  cor- 
rectly. 

The  next  variable  name  will  now 
be  shown  on  the  screen.  If  you  don't 
vrant  to  rename  it,  just  press  [RE- 
TURN] and  the  following  variable 
name  will  appear.  This  process  will 
continue  until  the  last  variable  name 
of  the  sort  program  has  been  dis- 
played. 

Now  the  program  will  prompt  you 
for  a  name  for  the  disk  file  in  which 
you  want  to  keep  the  modified  pro- 
gram. For  example,  type  in  D:SHEL2, 
or  if  you  don't  need  a  permanent 
copy  you  could  use  D8:SHEL2  to 
store  it  to  a  RAMdisk. 

After  the  utility  finishes,  it  will  de- 
lete itself  from  memory.  Press  [RE- 


TURN] one  more  time  to  ENTER  the 
modified  program  back  into  memory. 
Now  if  you  LIST  the  program  to  the 
screen  it  contains  the  renamed  varia- 
bles. RUN  the  program  and  it  will  ex- 
ecute just  as  it  did  before. 

CHANGING  YOUR  OWN 

VRename  will  work  with  almost 
any  BASIC  program,  but  your  pro- 
gram must  have  line  numbers  greater 
than  0  and  less  than  31500.  LOAD 
your  program,  then  ENTER  "D:VRE- 
NAME.LST"  from  disk.  Then  RUN  the 
program,  and  rename  variables  as 
described  above. 

Be  careful  that  you  don't  use  re- 
served BASIC  words  (like  LOAD,  RUN, 
NEXT)  as  variable  names.  If  you  have 
a  lot  of  variables,  be  sure  you  don't 
give  different  variables  the  same  name 
by  mistake.  As  always  when  modify- 
ing a  program,  it's  a  good  idea  to  keep 
a  backup  copy  on  disk. 

HELPFUL  HINTS 

WhUe  you  are  typing  in  a  program, 
you  can  use  variable  names  that  are 
short  and  easy  to  type.  After  you  fin- 
ish you  can  substitute  longer,  more 
descriptive  names.  Simpler  variable 
names  mean  less  typing,  and  will  not 
only  save  you  time  but  will  probably 
reduce  the  number  of  typing  errors 
that  you  make. 

When  your  program  is  running 
properly,  you  can  use  my  variable 
renaming  utility  to  add  descriptive 
names  that  use  these  characters  with- 
out causing  any  problems. 

BASIC  TOKENS 

When  you  type  in  a  program  in 
Atari  BASIC,  the  BASIC  interpreter 
translates  each  program  line  into  a  line 
number  and  a  series  of  string  con- 
stants, floating-point  constants,  and 
tokens.  Tokens  are  numbers  that  stand 
for  each  of  the  variables  and  BASIC 
commands  in  the  program.  The 
tokens  are  stored  in  a  table  called  the 
statement  table,  which  contains  a 
"shorthand"  version  of  the  program. 
The  tokenized  version  of  the  program 


in  the  statement  table  takes  up  less 
space  and  executes  much  faster  than 
the  program  would  if  it  were  still  in 
the  original  ASCII  form. 

If  the  value  of  a  token  is  less  than 
128,  it  represents  one  of  the  BASIC 
commands  or  BASIC  operators.  If  a  to- 
ken value  is  greater  than  128  it  stands 
for  one  of  the  variables  in  the  pro- 
gram. For  example,  if  the  program 
contains  a  SETCOLOR  command,  the 
statement  table  will  contain  a  48 
which  is  the  token  value  for  this  com- 
mand. In  similar  fashion  a  variable 
name  will  be  replaced  by  a  one-byte 
token  each  time  it  appears  in  the  state- 
ment table. 

The  characteristics  of  each  of  the 
variables  are  stored  in  three  other  sys- 
tem tables —  the  variable  name  table 
(VNT)  which  contains  the  variable 
names  that  correspond  to  each  of  the 
variable  tokens;  the  variable  value 
table  (VYT)  which  indicates  whether 
a  variable  is  a  string,  an  array,  or  a 
simple  variable  called  a  scalar;  or  the 
string  and  array  table  (ST\RT)  which 
holds  the  contents  of  every  string  vari- 
able and  the  value  of  each  element  in 
every  array  variable  in  the  program. 

In  the  variable  renaming  utility  we 
are  primarily  concerned  with  the 
VNT.  After  a  program  is  stored  in 
memory,  BASIC  works  with  the 
tokens,  the  WT  and  the  START  and 
ignores  the  variable  names  for  the 
most  part.  Only  when  you  are  manu- 
ally entering  a  program,  LISTing  it,  or 
ENTERing  it  from  disk  or  cassette  are 
you  directly  working  with  the  in- 
dividual variable  names.  The  SAVE 
and  LOAD  commands  access  the  sys- 
tem tables  only  as  a  continuous  block 
of  data,  and  are  of  no  use  in  renam- 
ing the  variables. 

All  of  the  BASIC  system  tables  that 
I've  mentioned  change  size  and  move 
around  in  memory  as  different  BASIC 
processes  occur.  The  BASIC  inter- 
preter keeps  track  of  the  location  of 
each  of  the  tables  using  pointers. 

Pointers  are  memory  locations  that 
contain  the  addresses  of  tables  and 
other   important   data   that   move 
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around  in  memory.  While  the  address 
stored  in  a  pointer  may  change,  the 
pointer  itself  stays  in  the  same  place. 
The  variable  renaming  utility  uses  two 
pointers  called  VNTP,  which  points  to 
the  beginning  of  the  VNT,  and  VNTD, 
which  points  to  the  byte  immediately 
following  the  end  of  the  VNT. 

HOW  IT  WORKS 

When  you  ENTER  the  utiUty  from 
disk,  it  merges  itself  around  your  pro- 
gram. Your  program  must  therefore 
have  line  numbers  greater  than  0  and 
less  than  31500.  The  utility  jumps 
from  line  0  directly  to  line  31500  and 
does  not  execute  the  original  pro- 
gram. The  utility  then  reads  each  vari- 
able name  out  of  the  VNT  and  asks 
if  you  want  to  change  that  name.  The 
old  variable  name  or  the  new  variable 
name  (if  you  just  changed  it)  is  then 
stored  in  VARNAMEJ!. 

The  utility  goes  through  all  of  the 
names  in  the  VNT  until  it  reaches 
VARNAME$,  the  first  variable  of  the 
utility  itself.  (If  no  names  were 
changed,  the  utility  terminates  and 
both  the  program  and  the  utility  re- 
main in  memory.) 

Now  there  is  a  complete  updated 
list  of  all  of  the  variable  names  stored 
in  VARNAMES.  The  utility  puts  the 
address  of  VARNAME$  into  VNTP  to 
make  BASIC  look  for  variable  names 
in  VARNAMES  instead  of  looking  in 
the  old  table. 

After  you  type  in  the  name  of  the 
disk  file  where  you  want  to  store  the 
modified  version  of  your  program, 
the  utUity  LISTs  lines  1-31499  (the 
original  program)  out  to  that  disk  file. 
As  the  program  is  being  converted 
from  tokens  back  into  ASCII,  the  ad- 
dress in  VNTP  tells  BASIC  to  read  the 
updated  names  stored  in  VARNAMES . 

Finally  the  utility  clears  memory 
with  a  NEW  command,  which  ter- 
minates the  utility.  Press  the  [RE- 
TURN] key  and  the  modified  program 
will  be  reentered  into  memory  from 
the  ASCII  file  now  on  disk. 

An  added  benefit  of  LISTing  and 
ENTERing  your  program  to  and  from 


disk  is  that  it  cleans  up  your  program. 
Old  unused  variable  names  will  be 
discarded.  If  your  800XL  has  Revision 
B  BASIC  ROM,  16  bytes  of  garbage  are 
added  to  the  end  of  your  program 
each  time  you  SAVE  it  to  disk.  Peri- 
odically LISTing  the  program  to  disk 
and  ENTERing  it  removes  this  gar- 
bage. You  have  Revision  B  ROM  if  you 
PEEK(43234)  and  the  result  is  96. 

PROGRAM  TAKE-APART 

31514  VNT  is  assigned  the  address 
of  the  variable  name  table.  VNT  is  in- 
cremented to  keep  track  of  the  cur- 
rent character  being  read  from  the 
table. 

31518-3 1530  Read  each  variable 
name. 

31531-31598  Change  a  variable 
name  and  put  the  new  name  in 
VARNAMEJf.  If  unchanged  the  old 
name  is  put  in  VARNAMES. 

31606-31614  Store  the  old  variable 
name  table  pointers. 

31618-31648  Make  the  variable 
name  table  pointers  point  to 
VARNAMES. 

31652-31688  LIST  the  modified 
program  out  to  a  disk  file. 

31690  NEW  clears  out  user  mem- 
ory and  resets  the  system  table 
pointers. 

31694-31706  TRAP  routine.  If  an 
error  occurs  while  LISTing  the  modi- 
fied program  to  disk,  the  old  VNT 
pointers  are  restored. 

SPECIAL  CASES 

As  I  mentioned  earlier,  this  utility 
is  designed  to  merge  itself  around  a 
program  that  is  currently  in  memory. 
With  a  dimensioned  size  of  2000 
characters,  VARNAMES  will  hold  128 
names  that  average  15  characters  in 
length,  or  64  names  that  average  31 
characters,  or  32  names  that  average 
63  characters,  etc.  If  you  have  a  par- 
ticularly large  program,  both  the  pro- 
gram and  the  utility  may  not  fit  in 
available  memory  at  the  same  time. 
If  this  occurs  feel  free  to  decrease  the 
dimension  of  VARNAMES. 

Another  problem  might  arise  with 


programs  that  use  a  lot  of  variable 
names.  Atari  BASIC  limits  you  to  128 
variables  in  one  program.  The  renam- 
ing utility  itself  uses  three  string  vari- 
ables and  13  scalar  variables. 

128  -  (3   +   13)  =    112  VARIABLE 
NAMES 

If  your  program  uses  more  than  112 
variables,  ENTERing  the  utility  may 
cause  an  error  since  the  total  number 
of  variables  exceeds  128. 

First,  try  to  localize  the  section  of 
the  program  that  contains  the  varia- 
bles that  you  wish  to  rename.  Rename 
the  variables  in  that  section.  Then 
recombine  the  program  section  with 
the  rest  of  the  program. 

If  this  process  does  not  solve  the 
problem,  you  will  have  to  create  a  spe- 
cial version  of  the  renaming  utility 
which  uses  the  same  variable  names 
as  your  program.  Use  the  following 
procedure: 

1.  LIST  your  program  to  disk  and 
type  NEW  to  clear  memory. 

2.  ENTER  the  utility  into  memory. 

3.  Delete  line  31534. 

4.  Modify  line  3168O  to  read:  31680 
LIST  NAMES 

5.  Type  RUN  to  run  the  utility  on 
itself. 

6.  As  each  variable  name  is  dis- 
played, rename  it  to  one  of  the  vari- 
able names  in  your  program. 

7.  When  the  utility  is  finished,  EN- 
TER the  modified  copy  of  the  utility 
into  memory 

8.  Modify  line  3168O  to  read:  31680 
LIST  NAMES,  1,31499 

9.  LIST  the  modified  utility  back 
out  to  a  disk  file. 

When  you  ENTER  this  specially  tai- 
lored copy  of  the  utility  into  memory 
with  your  program,  BASIC  will  not 
have  to  add  any  new  variables,  since 
they  already  exist  in  your  pro- 
gram. A 


Doug  White  of  Arlington,  Texas  uses  his 
I200XL  as  an  aid  in  designing  and  test- 
ing loudspeakers.  His  article  Equivalence 
appeared  in  the  February  1989  Antic. 
Listing  on  page  39 
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Hi-Res  PUT  and  GET 


Animation  without  Player /Missiles. 


By  Brad  Timmins 

Here's  a  different  yv2cy  to  create  color- 
ful objects  that  move  smoothly  around 
your  computer  screen.  This  BASIC 
demo  program  includes  the  handy  PUT- 
GET  machine  language  routine  for  use 
in  your  own  programs.  It  works  on  all 
8-bit  Atari  computers  of  any  memory 
size,  with  disk  or  cassette. 


Creating  colorful  objects  that  move 
smoothly  around  your  computer 
screen  can  be  one  the  of  most  satis- 
fying and  eye-popping  effects  your 
Atari  has  to  offer.  Player/Missile 
graphics  were  specifically  designed 
for  this  purpose,  but  P/M  graphics 
have  their  limitations.  First,  you  can 
only  have  a  maximum  of  five  players 
(objects)  on  the  screen  at  once.  Each 
player  can  only  be  eight  resolution- 
lines  wide.  Also,  you  are  limited  to 
one  color  per  player 

Hi-Res  PUT  and  GET  overcomes 
these  limitations  by  allowing  you  to 
take  a  "snapshot"  of  any  rectangular 
section  of  the  screen  and  store  it  in 
memory.  Then  you  retrieve  the  image, 
and  reposition  it  on  screen. 

For  example,  if  you  wanted  to  move 
a  box  smoothly  across  the  screen,  you 


would  start  by  drawing  the  box  using 
PLOT  and  DRAWTO  commands. 
Then,  using  the  PUT  and  GET  rou- 
tine, save  to  memory  the  portion  of 
the  screen  where  you  drew  the  box. 
And  finally,  put  the  image  back  on 
the  screen  shifted  over  by  one  pixel 
from  the  previous  image. 

Cycling  through  this  procedure  will 
create  the  illusion  of  smooth  motion. 


You  can  also  cycle  through  changing 
images  to  give  the  illusion  of  ani- 
mation. 

GEHING  STARTED 

To  see  the  routine  in  action,  type 
in  Listing  1,  PUTGET.BAS,  and  check 
it  with  TYPO  II.  Be  sure  to  SAVE  a 
copy  before  you  RUN  it.  This  demon- 
stration program  will  draw  an  object 
and  move  it  smoothly  around  the 
screen. 

PUT  and  GET  works  with  aU  high- 
resolution  graphics  modes  (3-11).  It 
also  supports  ANTIC  modes  E  and  D. 
ANTIC  E  is  the  so-called  7  1/2 
graphics  mode.  This  mode  offers  fine 
resolution  and  four  colors  to  work 
with.  ANTIC  E  is  available  on  the 
XL/XE  computers  as  Graphics  15. 

ANTIC  D  has  greater  resolution 
than  ANTIC  E  but  only  allows  one 
color.  This  mode  is  available  on 
XL/XE  computers  as  Graphics  14. 
Atari  400/800  users  must  set  up  a  spe- 
cial Display  List  to  access  these 
modes.  PUT  and  GET  does  not  sup- 
port any  text  modes. 

USING  THE  ROUTINE 

PUT  and  GET  is  written  in  machine 
language  for  maximum  speed.  It  is 
called  by  the  USR  statememt: 
X  =  USR(1536,XSTART,YSTART, 
XWIDTH,YLENGTH,STORAGE, 
GRAPHICS  MODE,COMMAND) 
XSTART  and  YSTART  are  the  upper 
left  corner  of  the  rectangular  section 
of  screen  you  want  to  work  with. 
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XWIDTH  and  YLENGTH  define  the 
size  of  the  rectangle.  XWIDTH  defines 
the  width  of  the  rectangle.  YLENGTH 
defines  the  length  of  the  rectangle. 
Both  can  range  from  zero  to  the  max- 
imum coordinate  value  for  the 
graphics  mode  you're  in.  For  speed 
purposes,  PUT  and  GET  does  not 
check  for  boundary  errors,  so  be 
careful. 

STORAGE  is  the  area  of  memory 
you  want  to  store  your  image  in.  To 
determine  how  much  memory  you'll 
need,  multiply  XWIDTH  by 
YLENGTH,  then  divide  the  result  by 
the  appropriate  number  listed  on  the 
table  below: 


Divide  by 


Graphics  mode 

D 

3 

4 

4 

8 

5 

4 

6 

8 

7 

4 

8 

8 

9-11  2 

14  (ANTIC  mode  D)  8 

15  (ANTIC  mode  E)  4 

Add  one  to  the  result  of  the  divi- 
sion if  you  get  a  remainder  other  than 
zero.  If  you  are  going  to  store  your  im- 
age in  a  string,  add  one  to  XWIDTH 
and  YLENGTH  before  you  multiply. 

GRAPHICS  MODE  teUs  PUT  and 
GET  what  graphics  mode  you'll  be  us- 
ing. Values  range  from  3  to  13-  Values 
3  through  11  are  the  standard  high- 
resolution  graphics  modes.  Use  a 
value  of  12  for  Graphics  14  (ANTIC 
D),  and  13  for  Graphics  15  (ANTIC  E). 

COMMAND  tells  PUT  and  GET 
what  action  you  want  done.  If  COM- 
MAND equals  zero,  PUT  and  GET  will 
copy  a  section  of  the  screen  to  mem- 
ory. If  COMMAND  equals  one,  an  area 
of  memory  will  be  copied  to  the 
screen. 

PUT  and  GET  takes  up  most  of  Page 
six  and  all  of  the  cassette  buffer.  So 


if  you  do  any  cassette  operations, 
you'll  have  to  reinitialize  PUT  and 
GET. 

Machine  language  programmers 
can  access  PUT  and  GET  with  a  JSR 
to  S609,  and  by  subsituting  these  Zero 
Page  locations  for  the  USR 
parameters: 

XSTART  =  224  (two  bytes) 

YSTVRT  =  222 

XWIDTH  =  220  (two  bytes) 

YLENGTH  =  218 

STORAGE  =  216 

GRAPHICS  MODE  =  214 

COMMAND  =   212 

Note  that  XSXfVRT  and  XWIDTH 
should  both  be  set  up  as  two-byte 
values,  even  if  the  coordinate  values 
are  less  than  255-  A 

Brad  Timmins  is  a  freelance  program- 
mer living  in  Draper,  Utah.  His  program 
Macro  RESET  appeared  in  the  January, 
1989  Antic 

Listing  on  page  38 


Bought  An 
ST  Computer? 

Then  convert  from  Antic  to  START  now! 

As  you  upgrade  your  computer  you'll  want 
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You  can  have  the  remaining  value  of  your 
Antic  subscription  converted  to  an  equal 
value  of  57Xi?r magazine  with  disk. 


Convert  my  Antic  Subscription  to 
START  magazine  with  disk. 

^^J  I  am  interested. 

Tell  me  how  many  issues  of 
START  I  will  get. 

Clip  this  coupon  and  mail  to: 
Antic  Subscriptions 
EO.  Box  1569 
Martinez,  CA  94553 


Name 


Address 


City 


State         Zip 


WH9C 


GAME  OF  THE  MONTH 


lype-In  Soflwaiv  I 


Good  King  Zurp 


The  great  pasta  sauce  chase. . .  Don't  ask!  Program  by  Frank  Martone 


Collect  the  ingredients  you  need  to 
create  a  super  spaghetti  sauce  in  this 
crazy  BASIC  game.  Good  King  Zurp 
will  work  on  any  8-bit  Atari  com- 
puter with  at  least  24K  memory,  with 
disk  or  cassette,  and  your  trusty 
joystick. 


Good  King  Zurp,  son  of  Bet- 
ter King  Xorpfgh,  was  a 
powerful,  despotic  figure 
in  the  land  of  Xjigqh,  where  they  do 
everything  the  same  as  they  do  here 
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except  that  they  eat  gelatin  with  chop- 
sticks. 

During  the  reign  of  Xorpfgh,  the 
people  of  Xjigqh  lived  happy, 
prosperous  lives,  growing  breadfruit 


and  hiring  themselves  out  as  ballasts 
for  the  glowering  Foon  People  across 
the  Thplj  River. 

Good  King  Zurp  ascended  to  the 
throne  of  Xjigqh  when  Better  King 
Xorpfgh  met  an  unfortunate  end 
while  stooping  to  pick  a  flower  from 
a  hostile  grootlebush.  Many  suspected 
foul  play,  but  everybody  knew  that 
Zurp  couldn't  possibly  have  master- 
minded any  plan  that  required  any 
type  of  native  intelligence. 

Zurp's  first  official  act  was  to 
build— no,  that's  not  right,  his  first 
official  act  was  to  legalize  pouring 
beet  syrup  over  your  head  and  boil- 
ing grubs  in  mayonnaise  and  rutabaga 
oil.  His  second  official  act  vras  to  build 
a  vast  empire  of  financial  wealth  by 
hiring  out  his  serfs  as  fruits  and 
vegetables  in  traveling  nutrional 
morality  plays. 

But  unsurprisingly,  hordes  of  tooth- 
pick craftsmen  eventually  overthrew 
Good  King  Zurp  by  disabling  the  pal- 
ace guards,  storming  the  king's 
rumpus  room  and  overturning  Zurp's 
pool  table — with  Zurp  underneath, 
also  thereby  turning  Zurp  into  a 
flapjack-like  entity. 

Zurp  left  Xjigqh  reluctantly  (and 
with  constant  neuralgia)  for  the  sun- 
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nier  pastures  of  Floobgrute,  where  he 
became  the  town's  most  popular  rick- 
shaw operator,  but  not  before  build- 
ing his  famous  Horror  Pits. 

NOW  TO  THE  GAME 

The  leader  of  the  insurgents,  one 
Ftjorjt  "The  Mad  Whacko  Strange  Per- 
son" Lipsko,  also  met  an  unfortunate 
demise  when  he  competed  in  a  polo 
championship  but  forgot  his  pony.  His 
will  stipulated  that  the  new  ruler  of 
Xjigqh  would  be  that  man,  woman, 
child  or  similar  creature  that  could  de- 
velop a  nationally  accepted  spaghetti 
recipe. 

As  luck  would  have  it,  buried  in 
Zurp's  Horror  Pits  are  hundreds  of 
valuable  things,  mostly  on  the  order 
of  ingredients  necessary  for  a  really 
good  meat  sauce  for  pasta.  Your  job, 
would-be  despot,  is  to  root  through 
these  horrid,  gloppy  areas  for  gold 
nuggets  in  the  form  of  packages  of 
noodles,  containers  full  of  seasonings 
such  as  pepper,  and  cloves  of  garlic. 


HAVE  A  QUESTION 

ABOUT  YOUR 

SUBSCRIPTION? 

Get  an  answer  fast! 

Call 
(415)372-6002 

Write: 

Antic  Customer  Service 

P.O.  Box  1569 

Martinez  CA  94553 


If  you're  lucky — that  is,  if  you  sur- 
vive long  enough  to  tromp  through 
enough  pits — ^you  miglit  chance  upon 
some  packages  of  really  terrific  tor- 
tellini,  which  almost  assuredly  would 
put  you  in  the  winner's  circle. 

This  sounds  easy  enough,  but  this 
is  no  mere  scavenger  hunt,  oh,  no! 
No,  you've  got  to  avoid  poisoned 
colanders  (sometimes  caUed  "cul- 
lenders") and  elude  horrid,  oversized 
maggots  which  will  cover  bits  of  you 
with  an  unpleasant  substance — and  if 
you're  covered  completely,  you'll 
suffocate,  which  is  to  say  the  game 
will  end  rather  abruptly  and  tell  you 
that  you  failed  miserably. 

Each  screen  gives  you  75  seconds 
to  grab  as  much  as  you  can  before  ad- 
vancing to  the  next  screen.  Your 
score,  the  time  remaining  and  the 
number  of  lives  left — you  start  with 
nine — are  all  displayed  at  the  top  of 
the  screen. 

GEHING  STARTED 

Type  in  Listing  1,  PASTA.BAS,  check 
it  with  TYPO  II,  and  be  sure  to  SAVE 
a  copy  to  disk  before  you  RUN  it. 

A  title  screen  will  appear,  followed 
shortly  by  a  list  of  objects  and  their 
point  values.  Press  [START]  to  begin. 
Once  the  playing  field  is  set  up,  sim- 
ply move  the  joystick  to  direct  your 
character  towards  the  valuable 
items — but  watch  out  for  those  mag- 
gots and  colanders! 

VALUES 

Here's  how  much  each  ingredient 
is  worth: 

Packets  of  pasta 

(fettucini,  spaghetti, 

vermicelli,  sometimes 

gnocchi):  100 

Packets  of  seasoning 

(including  pepper, 

oregano  and,  for  some 

reason,  dried 

horseradish):  250 

Garlic  Cloves  500 

Packets  of  special  pasta 

(tortellini,  torteUoni, 

ravioli,  sometimes 


agnolotti):  5,000 

Pesto  sauce  0 

(there  isn't  any) 
Maggots  you  die 

Colanders  (cullenders)      you  die 

BONUS  SCREENS 

Every  fourth  screen  is  a  bonus 
screen  filled  with  rows  of  groaning 
colanders.  Packets  of  pork-filled  tor- 
tellini or  spinach  ravioli  will  appear 
randomly — and  very  briefly — 
onscreen.  You  must  grab  one  before 
it  disappears  and  pops  up  elsewhere. 

If  you've  garnered  over  60,000 
points,  first  of  all  you  should  have  a 
heck  of  a  sauce  recipe,  but  a  nasty 
maggot  will  accompany  you  on  the 
Bonus  screens. 

In  order  to  get  the  bonus  you  must 
sucessfuUy  grab  three  pasta  packets 
without  touching  any  colanders  or 
maggots.  If  you  fail,  you  go  bonusless 
and  advance  to  the  next  screen. 

If  you  succeed,  however,  before 
heading  on  to  the  next  screen  you'll 
be  given  a  random  amount  of  points 
between  1,000  and  10,000. 

The  game  gets  tougher  as  your 
score  increases.  There'll  be  more 
colanders,  more  maggots  and  more 
spice  packets  and  garlic  cloves  to  grab. 
If  you  have  over  50,000  points,  the 
special  pasta  may  appear  on  the  play- 
ing field.  If  your  score  exceeds 
100,000,  the  playfield  will  flash  dif- 
ferent colors,  making  it  harder  to  con- 
centrate. 

STRATEGY  TIP 

Maggots  tend  to  dissolve  colanders 
in  both  the  regular  playfield  as  well 
as  in  the  bonus  playfield.  Nobody 
knows  why.  Fool  them  into  passing 
over  the  colanders  to  dissolve 
them.  A 


Frank  Martone  is  a  student  at  Suffolk 
Community  College  on  Long  Island,  New 
York.  This  is  his  first  appearance  in  Antic 
and  the  editors  apologize  for  the  drastic 
rewrite  of  his  original  scenario. 

Listing  on  page  40 
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ANTIC,  THE  ATARI  RESOURCE 


A  COMPUTER  SOFTWARE  SERVICES 
.,.  «.    ^'  BO^  '1^660,  ROCHESTER,  NY.  14617 
ATARI' PHONE  (716]  467-9326 

JUST  RELEASEDI 

$99.95       "SUPER  ARCHIVER  ll"l 

(for  ATARI  1050  drives) 

NOWI COPYS  all  ENHANCED  DENSITY  programs  plus  retains  all  of  the  features 
of  our  World  Famous  SUPER  ARCHIVER!  (see  below).  Allows  you  to  COPY  or 
CREATE  single  or  ENHANCED  density  protection  schemes  (Including  PHAN- 
TOM SECTORSI).  Completely  automatic;  compatible  with  the  BIT-WRITERI;  the 
ULTIMATE  BACKUP/PROGRAMMING  devlcel  Only  S99.95  plus  $4  S/H/l 
NOTICEI  If  you  already  own  a  SUPER  ARCHIVERI,  you  can  upgrade  to  a  SUPER 
ARCHIVER  II  for  only  S29.95  plus  S4  S/H/l  (disk  only  -  no  additional  hardware 
required). 

THE 

$69.95        "SUPER  ARCHIVER"!*         $69.95 

(for  ATARI  1050  drives) 

The  new  SUPER  ARCHIVER,  obsoletes  all  copying  devices  currently  available 
for  the  ATAR1 10501  It  eliminates  the  need  for  Patches,  PDB  (lies.  Computer 
Hardware,  eta  Copies  are  exact  duplicates  of  originals  and  will  run  on  any 
drive;  without  exaggeration,  the  SUPER  ARCHIVER  Is  the  most  powerful 
PROGRAMMING/COPYING  device  available  tor  the  10501  Installation  consists 
of  a  plug-In  chip  and  6  simple  solder  connections.  Softwares  Included. 
Features  are: 


•  TRUE  DOUBLE  DENSITY 

•  ULTRA-SPEED  read/write 

•  FULLY  AUTOMATIC  COPYING 

•  SUPPORTS  EXTRA  MEMORY 

•  SCREEN  DUMP  to  printer 

•  TOGGLE  HEX/DEC  DISPLAY 

•  SECTOR  orTRACK  TRACING 

•  AUTOMATIC  DIAGNOSTICS 

•  DISPLAYS  HIDDEN  PROTECTION 

•  ADJUSTABLE/CUSTOM  SKEWING 

•  AUTOMATIC  SPEED 
COMPENSATION 

•  AUTOMATIC/PROGRAMMABLE 
PHANTOM  SECTOR  MAKER 


•  ARCHIVER/HAPPY  ARCHIVER 
COMPATIBLE 

•  BUILT-IN  EDITOR  -  reads,  writes, 
displays  up  to  35  sectors/track 
short 

•  BUILT-IN  CUSTOM  FORMAHER 
up  to  40  sectors/track 

•  BUILT-IN  DISASSEMBLER 

•  BUILT-IN  MAPPER  -  up  to  42  sectors/ 
track 

•  DISPLAYS/COPIES  Double  Density 
HEADERS 

•  AUTOMATIC  FORMAT  LENGTH 
CORRECTION 

•  SIMPLE  INSTALLATION 

The  SUPER  ARCHIVER  Is  so  POWERFUL  that  only  programs  we  know  that  can't 
be  copied  are  the  newer  ELECTRONIC  ARTS  and  SYNFILE/SYNCALC  (34  FULL 
sectors/track).  If  you  want  It  ALL . . .  buy  the  "BIT-WRITER"I  also  . . .  then  you'll 
be  able  to  copy  even  these  programs!  Only  S69.95  plus  $4  S/H/l. 


$79.95 


'BIT-WRITER"! 


$79.95 

The  Super  Archlwsr  "BirWRITS"!  Is  capable  of  duplcating  even  the  'Xjncopyable" 
EA  and  SYN  series  which  employ  34  FULL  sectors/tracks.  "BIT-WRITER"I  Is 
capable  of  reproducing  these  and  FUTURE  protection  schemes  of  non 
physiclaily  damaged  disks.  PLUG-IN  circuit  boards  and  4  simple  solder 
connections.  The  "SUPER  ARCHIVER  with  "BIT-WRITER"!  Is  the  ultimate 
PROGRAMMING/COPYING  device  tor  Atari  1050's.  EXACT  DUPLICATES  of 
originals  are  made!  Copies  run  on  ANY  drive.  Must  be  used  with  Super 
Archlver.  Only  $79.95  plus  S4  S/H/l. 


$69.95 


'ULTRA  SPEED  PLUS"         $69.95 


Imagine  a  universal  XL/XE  Operating  System  so  easy  to  use  that  anyone 
can  operate  it  instantly,  yet  so  versatile  and  powerful  that  every  Hacker, 
Programmer  and  Ramdisk  owner  will  wonder  how  they  ever  got  along 
without  iti  Ultra  Speed  Plus  puts  unbelievable  speed  and  convenience  at 
your  fingertips.  Use  ANY  DOS  to  place  an  ULTRA  SPEED  format  on  your  disks, 
boot  any  drive  (1-9)  upon  power-up,  format  your  RAMDISK  In  Double  Density, 
activate  a  built-in  400/800  OS  for  software  compatibility,  plus  dozens  of  other 
features  too  numerous  to  mention!  Below  are  Just  a  FEW  features  you'll  find 
in  the  amazing  OS: 


'  ULTRA  Speed  SIO  (or  most 
modified  drives 
ULTRA  Speed  is  toggleable 
Boot  directly  from  RAMDISK 
Special  timer  circuits  not  re- 
quired lor  1  or  2  Meg  upgrades 
Background  colors  adjustbie 
Reverse  use  ol  OPTION  key 
Cold-start  without  memory  loss 
Built-in  lloppy/dlsk  configuration 
editor  (1-9) 


'  Built  In  RAMDISK  configura- 
tion editor  (1-9) 

>  RAMDISK  exactly  duplicates 
(loppy  drive  so  sector  copy- 
ing and  sector  editing  ore 
now  possible 

Built  In  MINI  Sector  Copier 
Toggle  SCREEN  OFF  for  up  to 
40%  Increase  of  processing 
speed. 

'  Toggle  Internal  BASIC 


•  Ram  resident  disk  loader 

grogram  (MACH  10  menu) 
OUBLE  DENSITY  RAMDISK 
capable 

•  Entire  MEMORY  test  that  pin- 
points defective  RAM  chip 

•  Boot  any  drive  (1-9)  upon 
power-up  or  cold-start 

•  Supports  memory  upgrades 
up  to  TWO  MEGABYTES 

•  THREE  Operating  Systems  In 
one  (XLTXE,  400/800,  ULTRA 
SPEED  PLUS) 


$29.95 


'XF551  ENHANCER!" 


$29.95 


The  XF551  Atari  drive  Is  a  fine  product  with  one  major  flaw. .It  writes  to  side 
TWO  of  your  flopping  disks  BACKWARDS.  This  causes  read/write 
Incompatibility  problems  with  all  other  single  sides  drives  made  for  Atari 
such  as  Indus.  Trak,  Rana,  Percom,  Astra,  Atari  1050,  Atari  810,  eta  Add  the 
XF551  ENHANCER  to  the  new  XF551  drive  and  your  problems  are  overl  This 
device  will  restore  100%  compatibility  while  retaining  original  design 
qualities  of  Atari's  super  new  drive.  The  XF5S1  ENHANCER  Is  a  MUST  for  all 
XF551  Owners.  Installation  Is  simple.  Only  S29.95  plus  $4  S/H/l. 


DEALER/DISTRIBUTOR/USER  GROUP  Discount  avallalbe  call  for  Into. 
PHONE  Orders  -  MASTER  CARD,  VISA  MAIL  -  Money  Orders,  Checks 

•SHIPPINGI  Add  S4  for  ShIpplng/Handllng/lnsurance  within  the  U.S.A. 

UPS  BLUE  LABLE  (2nd  DAY  AIR)  available  lor  S3  extra  per  shlprrient. 

CALL  TODAY!  gi6)  467-9326  CON^PUTER  SOFTWARE  SERVICES 

9  am  -  5  pm  (ESTl  WEEKDAYS  P.O.  Box  17660 

Rochester,  N.Y  14617 


A 

ATARI 


$39.95  RICHMAN'S  $39.95 

80  Column  Word-Processor! 

Easy  to  use,  very  powerful,  and  NO  ADDITIONAL  HARDWARE  requlredl 
Works  with  TV  or  Monltorl  This  "DISK  ONLY"  80  Column  Word-Processor  is 
simple  to  use  while  offering  numerous  features  such  as: 

•  Completely  (VIenu  driven  •  Insert  and  Delete 

•  Self  contained  DOS  •  Search  Mode 

•  Complete  Text  formatting  •  View  only  mode 

•  Built  in  Printer  Drivers  •  Memory  Statistics 

•  Page  numbering  •  Alternate  Output 

•  Jus%  and  Endfill  •  Change  screen  Colors, 

•  High  Speed  Cursor  borders,  luminesce 

•  Dictionary  •  iviouse  compatible 

•  80  COLUMNS  ON  THE  SCREENI 

One  expert  has  compared  40  domestic  and  foreign  word-processors 
and  concluded  that  the  RICHMANS  80  Column  Word-Processor  Is  the 
best!  Only  $39.95  plus  $4  S/H/l.  (64K  required). 


$39.95 


THE  "QUINTOPUS!" 


$39.95 


The  "QUINTOPUS!"  is  an  Inexpensive  device  that  provides  a  tremendous 
amount  of  convenience  while  eliminating  the  problems  associated  with 
the  endless  "daisy-chaining"  of  peripherals  (eg;  drives,  interfaces,  printers, 
modems,  cassettes,  etc).  The  "QUINTOPUSI"  Is  an  I/O  port  expander  that 
converts  a  single  I/O  output/Input  Into  five  additional  outputs/lnputa  Instead 
of  daisy-chaining  all  of  your  peripherals  (which  often  times  results  in  passing 
a  signal  through  30  feet  or  more  ol  cable!),  the  "QUINTOPUSI"  allows  each 
device  to  be  connected  directly  to  the  computers  through  only  three  or 
four  feet  ol  cable.  This  Is  particularly  useful  when  attempting  to  use 
ULTRASPEED  or  WARPSPEED  data  transfer  rates.  The  "QUINTOPUSI"  also 
provides  the  "extra"  I/O  ports  often  needed  to  connect  devices  not  having 
daisy-chaining  capabilities.  Cable  resistance  and  compacltance  are 
greatly  reduced  thereby  significantly  Improving  the  opportunity  of 
accurate  data  transfers!  Only  $39.95  plus  $4  S/H/l. 

$59.95  THE  "QUINTOPUS!"  $59.95 

(with  SWITCHABLE  PORTSI) 

This  Deluxe  version  of  the  "QUINTOPUSI"  has  all  of  the  above  features  with 
the  additional  benefits  of  two  SWITCHABLE  PORTSI  This  means  you  can 
connect  two  computers  to  one  printer  or  two  printers  to  one  computer;  you 
can  switch  in  a  computer/printer  combination  and  while  you're  printing 
out  a  long  document,  switch  In  a  second  computer  to  access  a  modem, 
disk  drive,  cassette  deck,  etcl  Switch  multiple  combinations  of  peripherals 
or  computers  without  the  hassel  or  re-arranging  I/O  cables  ....  simply  flip 
a  switch!  Only  S59.95  plus  $4  S/H/l. 


LIMITED  SPECIALS! 

Previously  we  listed  these  products  under  our  FIRESALE  ad  but  many  of  our 
customers  feared  that  the  software  items  might  be  smoke  or  water 
damaged.  They're  NOT!  Ail  of  the  items  listed  below  are  BRAND  NEW.. .only 
their  literature  or  packing  may  have  slight  cosmetic  imperfections.  All  items 
are  fully  warrantledl  Quantities  are  limited!  No  ralnchecksl 


1.  PILL  (without  case) 

2.  SUPER  PILL  (wittiout  case) 

3.  XL  FIX  ROM 

4.  ULTRA  MENU/DOS 

5.  DiSKCRACKER  (Newest  version) 

6.  ELECTRONIC  PHANTOM  SECTOR  MAKER  DELUXE 

7.  RICHMANS  80  COLUMN  WORD  PROCESSOR 

8.  MIRACLE  (Disk  only  Version  of  impossible) 

9.  IMPOSSIBLE  for  800  or  800XL 

10.  XL  MATE 

11.  COMPACTOR 

12.  KLONE 11  (Generic  HAPPY  backup) 

13.  SILENCER 

14.  BLACK  PATCH  (MASTER) 

15.  BLACK  PATCH  DATA  DISKS  1  8i  2 

'Order  5  items  or  more  and  we  will  pay  the  freight! 

Tiiese  SPECIALS  are  lor  C.S.S.  customers  only  ■  NO  DEALER  DISCOUNTS  ■  NO  RAINCHECKS 

-  LIMITED  QUANTITIES 


NORMALLY 

SPECIALS 

S  70 

S19 

80 

22 

70 

19 

30 

19 

SO 

19 

60 

35 

60 

29 

70 

19 

150 

69 

30 

15 

30 

15 

100 

75 

3D 

19 

SO 

25 

20 

10 
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Superhop  ACTION! 


Faster  fractals  grow  in  your  Atari.  By  Douglas  Skrecky 


Watch  elegant  fractal  patterns  come  alive  onscreen  at  top  speed  with 
this  fast  and  friendly  ACTION!  program.  It  works  on  8-bit  Atari  computers 
with  at  least  48K  memory  memory  and  disk  drive.  If  you  are  typing  in 
the  program,  you  will  need  the  ACTION!  cartridge  from  ICD,  But  if  you 
oum  this  month's  Antic  Disk,  you  will  find  a  version  that  runs  without 
the  special  cartridge. 


In  May,  1987,  Antic  published 
my  fractal  generating  program, 
Dot  Hopper.  That  program 
used  floating  point  arithmetic 
and  was  written  in  BASIC.  Conse- 
quently, it  was  quite  slow. 

After  playing  with  the  ACTION! 
cartridge  for  awhile,  I  realized  that 
floating  point  calculations  were  com- 
pletely unnecessary  for  this  language. 


Between  ACTIONI's  inherent  speed 
and  integer  arithmetic,  I  found  that 
the  program  could  be  made  to  run 
many  times  faster  than  in  BASIC.  Us- 
ing ACTION!,  the  Atari  could  gener- 
ate fractal  patterns  in  seconds.  The 
fractals  appear  to  "come  alive"  and 
grow  right  before  your  eyes. 

You  don't  have  to  know  anything 
about  the  mathematics  of  fractal  ge- 
ometry to  appreciate  these  elegant 
patterns.  Some  are  startlingly  organic, 
others  are  reminiscent  of  snowflakes 
and  lace.  If  you  enjoy  the  beauty  of 
fractal  imagery,  you'll  have  fun  with 
this  program. 

GEniNG  STARTED 

Type  in  Listing  1,  SUPERHOP.ACT, 
and  save  a  copy  to  disk  before  you 
start  the  program. 

Antic  Disk  users  don't  need  the  AC- 


TION! language  cartridge  to  enjoy 
Superhop  ACTION!.  A  runtime  ver- 
sion, SUPERHOP.EXE,  is  on  this 
month's  disk.  (As  is  usually  the  case, 
this  runtime  ACTION!  translation 
would  be  too  long  to  print  as  a  type- 
in  listing.)  Copy  SUPERHOPEXE  to 
another  disk  that  has  been  formatted 
with  DOS  2  or  DOS  2.5,  and  make 
sure  the  disk  contains  a  DOS.  SYS  file. 
Rename  SUPERHOPEXE  to  AUTO- 
RUN.  SYS  so  that  the  program  will 
load  and  run  automatically. 

To  start  growing  fractals,  turn  off 
your  Atari  and  insert  your  prepared 
Superhop  ACTION!  disk.  Remove  all 
cartridges  (XL  and  XE  owners  press 
[OPTION])  and  turn  on  your  com- 
puter. Superhop  ACTION!  will  load 
and  run  automatically. 

When  the  program  runs,  it  first 
presents  the  main  menu,  which  lists 
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the  various  commands  and  options. 
You  can  return  to  this  menu  from  any 
other  screen  simply  by  pressing  [M]. 

Pressing  [D]  activates  the  demo 
mode,  which  generates  successive 
fractals  through  15000  iterations  each 
(it  doesn't  take  very  long).  Demo 
mode  continues  generating  fractals 
until  you  press  the  [M]  key  to  return 
to  the  menu,  or  press  [C]  to  generate 
a  single  fractal. 

While  fractals  are  being  generated 
in  either  Demo  or  Create  mode,  press- 
ing the  cursor  keys  (you  don't  have  to 
press  the  [CONTROL]  key  with  them) 
will  shift  the  fractal  so  that  you  can 
view  a  different  portion  on  the 
screen.  However,  the  fractal  is  erased 
from  the  screen  and  the  growth  proc- 
ess must  begin  all  over  again — with 
the  same  pattern.  The  patterns  are 
generated  fast  enough  that  this  isn't 
a  big  inconvenience. 

\bu  may  use  the  [>]  key  to  "zoom 
in"  on  a  portion  of  the  fractal,  enlarg- 


ing it  on  the  screen.  The  [<]  key 
"zooms  out".  These  keys  also  start  the 
fractal  growth  process  over  again. 

Pressing  [C]  changes  the  pattern.  To 
see  some  of  the  possible  patterns,  try 
letting  each  pattern  grow  for  only  a 
few  seconds  before  pressing  [C]  again. 
Then  if  a  new  pattern  looks  particu- 
larly interesting  you  can  let  it  grow, 
and  see  how  it  develops. 

Also,  try  letting  patterns  sit  on  the 
screen  for  several  minutes  after  they 
seem  to  have  stopped  growing — they 
may  surprise  you. 

SAVE  A  FRAaAL 

If  you  see  a  fractal  pattern  you  like, 
you  can  save  it  to  disk  by  pressing  the 
[S]  key.  Doing  so  will  read  in  a  disk 
directory  and  let  you  choose  a  file- 
name to  save  the  screen  under.  The 
fractal  is  saved  as  a  62-sector  Micro- 
Painter  compatible  file.  Once  the  im- 
age has  been  saved,  the  program  will 
return  to  the  pattern  in  progress. 


which  continues  to  grow  without 
starting  over. 

To  convert  your  Micro-Painter  im- 
age to  Micro  Illustrator  format,  you 
can  use  Rapid  Graphics  Converter  m 
the  November  1985  Antic. 

To  load  a  fractal  into  Superhop  AC- 
TION! press  [L].  A  directory  of  the 
disk  in  drive  1  will  be  displayed.  En- 
ter the  filename  of  the  fractal  you 
want,  and  it  will  appear  on  the  screen. 
(Note  that  the  fractal  does  not  con- 
tinue to  grow  after  it  has  been  loaded.) 

Pressing  the  [SPACEBAR]  will  turn 
off  the  screen  and  speed  up  fractal 
growth  by  about  30%,  although  I 
realize  that  this  is  not  an  especially 
useful  function!  A 

Douglas  Skrecky  is  a  mainframe  pro- 
gram.mer  who  currently  lives  in  Vancou- 
ver, Canada.  He  likes  to  relax  after  work 
with  his  "trusty  Atari  8-bit  and  perhaps 
a  mug  of  beer." 
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Mapping  the 


Atari 


Exclusive! 


Antic  brings  back  the  classic  8-bit  reference  book. 


Serialization  by  Ian  Chadwick 


Ian  Chadwick's  "Mapping  The  Atari"  has  been  one 
of  the  core  references  for  Atari  8-bit  programmers  since 
the  first  edition  was  published  in  1983.  The  book  is 
set  up  as  a  comprehensive  guide  to  the  memory  loca- 
tions in  the  Atari  130XE,  65XE,  800XL,  600XL, 
1200XL,  800  and  400.  But  it  is  much  more  than  that. 
It  is  a  virtual  encyclopedia  of  indispensible  informa- 
tion about  the  inner  workings  of  the  Atari. 

This  invaluable  sourcebook  essentially  is  out  of  print 
today,  although  a  few  copies  of  "Mapping  The  Atari" 
can  still  be  found  in  the  publisher's  warehouse  and 
occasionally  at  specialty  computer  stores.  Therefore, 
it  is  with  great  satisfaction  that  Antic  announces  we 
are  beginning  an  exclusive  serialization  of  key  excerpts 
from  the  revised  second  edition  of  Chadwick's  book. 
This  opening  segment  provides  a  useM  overview  of 
the  material  that  will  be  covered  in  upcoming  issues. 
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What  exactly  is  a  mem- 
ory map?  It  is  a  guide 
to  the  memory  loca- 
tions in  your  com- 
puter. A  memory  location  is  one  of 
65536  storage  places  called  bytes  in 
which  a  number  is  stored.  Each  of 
these  bytes  holds  a  number  for  pro- 
grams, data,  color,  sound,  system 
operation,  or  is  empty  (i.e.,  has  a  zero 
in  it),  waiting  for  you  to  fill  it  with 
your  own  program. 

Each  byte  is  composed  of  eight  bits, 
each  of  which  can  be  either  a  one  (on) 
or  a  zero  (off).  The  alterable  area  of 
memory  you  use  for  your  programs 
is  called  the  Random  Access  Memory 
(RAM),  while  the  area  used  by  the 
Atari  to  run  things  is  called  the  Read 
Only  Memory  (ROM).  Although  some 
of  the  memory  locations  in  the  spe- 
cial Atari  chips  were  designed  to  be 
written  to  like  the  RAM,  the  rest  of 
the  ROM,  including  the  Operating 
System  ROM,  cannot  be  altered  by  you 
since  it  contains  routines  such  as  the 
floating  point  mathematics  package 
and  the  input/output  routines. 

I  hope  that  you  are  familiar  enough 
with  your  Atari  to  understand  some 
of  these  rudimentary  uses  of  a  mem- 
ory map.  It  is  not  the  scope  of  this 
manual  to  fully  explain  how  to  use 
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PEEK  and  POKE  statements.  Briefly, 
however,  PEEK  allows  you  to  look  at 
the  value  stored  in  any  one  memory 
location.  If  you  want  that  value  to  be 
printed  to  the  screen,  you  must  pref- 
ace the  PEEK  statement  with  a  PRINT 
statement  such  as: 

PRINT  PEEK  (708) 

If  you  haven't  changed  your  color 
registers,  this  will  return  the  number 
40  to  your  screen.  All  bytes  in  the  Atari 
can  hold  a  number  between  zero  and 
255.  POKE  allows  you  to  place  a  value 
into  a  byte,  such  as: 

POKE  755,4 


manner  in  memory  (i.e.,  the  smaller 
part  is  in  the  first  memory  location). 
For  example,  locations  88  and  89 
store  the  lowest  address  of  the  screen 
memory.  Let's  say  the  numbers  found 
there  are  22  and  56,  respectively.  To 
get  the  decimal  address,  you  take  the 
MSB  (stored  in  89)  and  multiply  it  by 
256,  then  you  add  it  to  the  LSB  at  88. 
In  our  case  that's  56  *  256  equals 
14336,  plus  22  equals  14358.  This  is 
the  address  of  the  upper  left  corner 
of  the  screen.  A  simple  way  to  do  this 


In  hex,  the  same  number  is  S87E 
That  breaks  down  to: 


4096 
0 


256 


16 

7 


Rather  than  multiply  each  next  step 
up  by  ten,  we  multiply  by  16.  Okay, 
but  where  do  we  get  "F"  from?  Well, 
if  base  ten  has  the  numbers  zero  to 
nine,  base  16  will  have  to  have  some 
letters  added  to  the  end  to  make  up 
for  the  extra  numbers: 


Decimal 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

Hex 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

By  doing  this  you  will  have  turned 
your  text  upside  down!  You  can  re- 
turn it  to  normal  by: 

POKE  755,2 

Similarly,  POKE  710,80  will  turn 
your  screen  dark  purple!  As  with 
PEEK,  POKE  can  only  involve  num- 
bers between  zero  and  255.  You  will 
not  be  able  to  POKE  into  most  of  the 
ROM  locations  since  the  numbers  in 
many  of  them  are  "hard-wired," 
"burned"  into  the  chip,  and  cannot 
be  changed  in  this  manner. 

So  how  does  the  Atari  (or  other  8- 
bit  microcomputers,  for  that  matter) 
store  a  number  larger  than  255?  By 
breaking  it  down  into  two  parts;  the 
Most  Significant  Byte  (MSB), 
which  is  the  number  divided  by  256 
and  rounded  down  to  the  nearest 
whole  number,  and  the  Least  Signifi- 
cant Byte  (LSB),  which  is  the  origi- 
nal number  minus  the  MSB.  The  Atari 
knows  to  multiply  the  MSB  by  256 
and  add  the  LSB  to  get  the  number 
For  example,  the  number  45290  is 
stored  as  two  parts:  234  (LSB)  and  176 
(MSB).  176  times  256  equals  45056, 
plus  234  equals  45290. 

LEAST-MOST  STORAGE 

The  Atari  uses  the  convention  of 
storing  addresses  in  the  LSB/MSB 
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in  BASIC  is: 

BYTE  =  PEEK  (88)  +  PEEK  (89)  * 

256 

The  reverse  (to  break  up  a  decimal 
location  into  MSB  and  LSB)  is  done 
by: 

MSB     =     INT    (BYTE/256):LSB     = 
BYTE-MSB  *  256 

This  process  is  easier  for  assembly 
language  programmers  who  use  hex- 
adecimal numbers,  since  the  right  two 
digits  are  always  the  LSB  and  the  two 
left  of  them  are  the  MSB.  For  exam- 
ple: 

SD016    (hexadecimal    for    53270) 
equals  16  (LSB)  and  DO  (MSB) 

SI6  equals  22  in  decimal,  and  $D0 
equals  208  decimal.  Multiply  the  MSB 
by  256  and  add  22  and  you  get  53270. 
Throughout  the  map  portion  of  this 
book  I  have  provided  both  decimal 
and  hexadecimal  numbers  together 
for  ease  of  reference.  In  8K  BASIC, 
you  can  use  decimal  numbers  only 
with  POKE,  and  PEEK  will  return 
only  decimal  values  to  you. 

Hexadecimal  is  a  base  16  used  in- 
stead of  the  normal  base  ten  system 
because  it  is  more  suited  to  the  eight- 
bit  structure  of  the  computer  So, 
when  we  say  2175  in  decimal,  what 
we  really  mean  is: 


10000         1000 
0  2 


100         10         1 
1  7        5 


So  SF  equals  15  in  decimal.  Now 
here's  how  it  all  relates  to  binary  math 
and  bits: 

Each  byte  can  be  broken  up  into 
two  parts  (nybbles),  like  this: 
0000  0000 

If  each  nybble  is  considered  a  sep- 
arate number,  in  decimal,  the  value  of 
each  would  range  from  zero  to  15,  or 
zero  to  $¥.  Aha!  So  if  all  the  bits  in 
each  group  are  on  (one,  or  set),  then 
you  have: 

1111  1111        Binary 

15  15         Decimal 

F  F        Hex 

You  join  the  two  hex  numbers  to- 
gether and  you  get  $FF  (255  in  deci- 
mal), the  largest  number  a  byte  can 
hold.  So  you  can  see  how  we  trans- 
late bytes  from  binary  to  hex,  by  trans- 
lating each  nybble.  For  example: 

1001  1101         Binary 

9  13         Decimal 

9  D        Hex 

ii!9D  equals  nine  times  16  plus  13, 
or  157  in  decimal. 

0100  0110        Binary 

4  6        Decimal 

4  6        Hex 

$46  equals  four  times  16  plus  six, 
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or  70  in  decimal. 

nil  1010        Binary 

15  10         Decimal 

F  A        Hex 

$?A  equals  15  times  16  plus  ten,  or 
250  in  decimal. 

Obviously,  it  is  easier  to  do  this 
with  a  translation  program  or  a  cal- 
culator! 

Since  I  will  often  be  discussing  set- 
ting bits  and  explaining  a  small 
amount  of  bit  architecture,  you  should 
be  aware  of  the  simple  procedures  by 
which  you  can  turn  on  and  off 
specific  bits  in  any  location  (that  is, 
how  to  manipulate  one  of  the  eight 
individual  bits  within  a  byte).  Each 
byte  is  a  collection  of  eight  bits:  num- 
bers are  represented  by  turning  on  the 
particular  bits  that  add  up  to  the  num- 
ber stored  in  that  byte.  Bits  can  be  ei- 
ther zero  (0  equals  off)  or  one  (1 
equals  on,  or  SET).  The  bits  are  num- 
bered zero  to  seven  and  represent  the 
following  decimal  numbers: 

Bit  76543210 

Value   128  64  32   16  8  4  2   1 

The  relationship  between  the  bits 
and  the  powers  of  two  should  be  ob- 
vious. Adding  up  all  the  numbers  (all 
the  bits  are  set)  gives  us  255.  So  each 
byte  can  hold  a  number  between  zero 
(no  bits  are  set)  and  255  (all  bits  are 
set). 

Sometimes,  instead  of  zero,  no  bits 
set  is  intended  to  mean  256.  That  will 
be  noted  in  the  relevant  locations.  So 
how  do  you  set  a  bit?  Simple:  POKE 
it  with  the  appropriate  number.  For 
example,  to  set  Bit  5,  POKE  the  loca- 
tion with  32.  To  set  Bits  7,  5  and  4, 
add  up  their  values,  128  -h  32  -f  I6, 
and  POKE  the  location  with  the  to- 
tal: 176. 

Sometimes  you  need  to  set  a  bit 
without  changing  other  bits  already 
set,  so  you: 

POKE  number,  PEEK  (number)   + 
decimal  value  for  the  bit  to  be  set.(i.e. , 


POKE  50418,  PEEK  (50418)  +  32) 

To  turn  off  a  bit,  instead  of  adding 
the  value  you  would  subtract  it  with 
POKE  number,  PEEK  (number),  mi- 
nus the  decimal  value  for  the  bit  to 
be  turned  off.  Binary  math  is  simple 
and  easy  to  learn;  if  you  don't  under- 
stand it  now,  you  should  do  further 
reading  on  machine  language  before 
attempting  any  serious  use  of  this 
guide. 

AND,  OR,  And  EOR 

It  is  useful  to  know  how  to  perform 
Boolean  logic  on  bits.  There  are  three 
functions  used  in  assembly  code  for 
bit  manipulation  in  this  manner: 
AND,  OR  and  EOR  (exclusive  OR). 
Each  requires  you  to  use  two  num- 


In  this  case,  65  is  the  AIASCII  'A". 
By  ORing  it  with  128,  we  get  193,  the 
ATASCII  inverse  "A". 

EOR  "flips"  bits  in  the  original  if 
the  mask  has  a  one  in  the  same  loca- 
tion. For  example: 

193  =   11000001 
EOR       128  =   10000000 

Result  =  01000001  =  65 

In  this  case,  we  have  returned  the 
inverse  "A"  to  the  normal  AIASCII 
value.  An  EOR  with  255  (all  ones)  will 
produce  the  complement  of  the 
number: 

171  =   10101011 
EOR      255  =   11111111 

Result  =  01010100  =  84 


In  brief: 

Original: 

Mask: 

AND: 

OR: 

EOR: 

0 

0 

0 

0 

0 

0 

1 

0 

1 

1 

1 

0 

0 

1 

1 

1 

1 

1 

1 

0 

bers,  the  one  being  acted  upon  and 
the  one  used  to  perform  the  function. 
Here  is  a  brief  explanation  of  how 
these  logical  functions  work: 

AND  is  usually  used  as  a  mask — to 
zero  out  unwanted  bits.  You  compare 
two  binary  numbers  using  AND;  if 
both  bits  in  the  same  location  are  one, 
then  the  result  is  one.  If  either  bit  is 
zero,  then  the  result  is  zero.  For 
example: 


51 
15 


00110011 
00001111 


AND 

Result  =  00000011   =  3 

OR  is  frequently  used  to  force  set- 
ting of  a  bit.  If  either  bit  in  the  origi- 
nal or  the  mask  is  one,  then  the  result 
is  one.  For  example: 

65  =  01000001 
OR         128  =   10000000 

Result  =   11000001  =   193 


Atari  BASIC  supports  A^fD,  OR  and 
NOT;  NOT  is  the  logical  complement 
where  NOTl  equals  zero  and  NOTO 
equals  one.  If  the  expression  is  true, 
you  get  a  zero;  Lf  NOT  true,  a  one  is 
returned — for  example  NOT  ((3  +  4) 
>  =  6)  results  in  zero. 

In  general,  I  have  attempted  to 
avoid  using  6502  assembly  language 
mnemonics,  but  have  included  them 
where  I  felt  their  use  described  the  ac- 
tion to  be  taken  better  than  a  lengthy 
explanation.  Most  common  are  JMP 
(jump  to  location),  JSR  Ou™P  to 
subroutine),  RTS  (return  from  subrou- 
tine), and  RTI  (return  from  interrupt). 
Readers  should  be  minimally  familiar 
with  machine  language  in  order  to 
understand  any  machine  language 
subroutines  used  here. 

You  can't  hurt  the  machine  by 
POKEing  about  in  memory,  although 
you  may  crash  any  program  in  mem- 
ory,  so  SAVE  your  program  first. 
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Usually  you  can  salvage  it  by  pushing 
[RESET],  but  you  may  have  to  turn  off 
the  machine  and  reboot  on  occasion. 
You  can  learn  a  lot  about  your  ma- 
chine by  simply  playing  around  with 
it. 

ABOUT  LANGUAGES 

The  majority  of  the  information 
here  concerns  language-independent 
locations  and  can  be  used  regardless 
of  the  language  you  use  for  your  pro- 
gramming. When  the  location  is 
language-dependent,  such  as  the  BA- 
SIC or  DOS  areas,  I  have  noted  it  in 
the  proper  section.  \t)u  may  exert  the 
same  control  over  your  Atari  in  what- 
ever language  you  chose.  You  will  ob- 
viously have  to  change  the  commands 
PEEK  and  POKE  to  the  proper  com- 
mands of  your  language. 

BASIC  is  a  good  language  to  start 
with:  you  can  use  it  to  learn  program- 
ming, to  explore  your  computer,  to 
experiment  with,  and  to  have  fun 
with.  However,  when  you  are  ready 
to  go  on,  you  will  have  to  learn  a  more 
efficient,  faster  language  if  you  really 
want  to  make  the  best  use  of  your 
Atari.  Many  people  choose  6502  ma- 
chine language  because  of  its  speed. 

Computer  languages,  whichever 
you  use,  are  quite  exact  in  their  mean- 
ing, especially  compared  to  English. 
Consider  that  in  English,  a  fat  chance 
and  a  slim  chance  both  mean  the 
same  thing.  Yet  POKE,  PUT,  and 
PUSH  have  very  different  meanings  in 
computerese. 

GLOSSARY 

ANTIC,  CTIA  AND  GTIA,  PIA, 
POKEY:  Special  Atari  chips  control- 
ling the  400/800's  graphics,  color  and 
screen  resolution  controller  jacks  and 
sound,  respectively.  Located  in  ROM, 
locations  53248  to  54783.  ANTIC 
also  processes  the  Non-Maskable  In- 
terrupts and  POKEY  processes  the  In- 
terrupt Requests.  These  chips,  along 
with  the  6502  microprocessor  which 
runs  the  rest  of  the  Atari,  are  housed 
inside  your  computer,  protected  by 
the  metal  shielding  underneath  the 


plastic  cover. 

BIT,  BYTE:  A  bit  is  the  smallest  size 
division  of  memory  in  your  com- 
puter It  is  so  small  that  it  can  hold 
only  one  value  in  it:  off  (zero)  or  on 
(one).  Eight  bits  together  form  a  byte; 
this  is  the  size  of  the  memory  loca- 
tions discussed  in  this  book.  You  will 
sometimes  hear  programmers  talk 
about  a  half-byte  called  a  "nybble." 

CIO:  Central  Input/Output  routines 
located  in  ROM.  Controls  Input/Out- 
put Control  Block  operations.  Briefly, 
CIO  handles  the  data  input  and  out- 
put through  the  device  driver(s)  (also 
known  as  device  handlers),  then 
passes  control  to  those  drivers.  It's  a 
single  interface  with  which  to  access 
all  peripherals  in  a  device- 
independent  manner  (i.e.,  uniform 
handling  of  data  with  no  regard  to  the 
device  being  accessed).  As  an  exam- 
ple: writing  data  to  a  disk  file  is  treated 
in  an  identical  manner  as  writing  data 
to  the  screen;  commas  insert  blanks 
between  elements  and  both  semi- 
colons and  commas  suppress  the  End- 
Of-Line  character  (EOL). 

DCB:  Device  Control  Block,  used 
by  Serial  Input/Output. 

DL:  Display  List.  This  is  a  set  of  in- 
structions which  tell  the  ANTIC  chip 
where  to  find  the  screen  display  data 
and  how  that  data  is  to  be  placed  on 
the  TV  screen. 

DLI:  Display  List  Interrupt.  A  DLI 
causes  the  display  to  stop  processing 
to  temporarily  run  a  user-written 
routine. 

DOS:  Disk  Operating  System.  The 
software  loaded  from  disk  file 
DOS.SYS  that  controls  all  disk  I/O. 
The  latest  edition  of  DOS  is  called 
DOS  2.0S  (S  for  single  density). 

DUP:  Disk  Utilities  Package.  The 
software  loaded  from  disk  file 
DURSYS  that  handles  the  DOS  menu 
functions  such  as  Copy. 

FMS:  (or  sometimes  DFMS):  File 
Management  System  portion  of  DOS; 
a  dedicated  device  driver  that  controls 
all  I/O  operations  for  device  "D:". 

FP:  Floating  Point  mathematical 
package  in  ROM. 


I/O:  Input/Output. 

lOCB:  Input/Output  Control 
Block.  Area  of  RAM  (locations  832  to 
959)  used  by  CIO  to  define  operations 
to  devices  such  as  the  disk  drive  (D:), 
printer  (P:),  screen  display  (S:),  key- 
board (K:)  and  screen  editor  (E:). 
ZIOCB  is  the  page  zero  lOCB. 

IRQ:  Interrupt  Request  used  for 
serial  port  communication,  periph- 
eral devices,  timing  and  keyboard  in- 
put. IRQ's  are  processed  by  the 
POKEY  chip. 

NMI:  Non-Maskable  Interrupt; 
used  for  video  display  and  RESET. 
NMIs  are  processed  by  the  ANTIC 
chip. 

OS:  Operating  System.  The  resident 
system  that  runs  the  Atari. 

Although  people  often  refer  to  the 
entire  ROM  area  as  the  OS,  this  is  not 
correct.  The  OS  ROM  is  that  portion 
of  memory  which  holds  the  floating 
point  package,  the  Atari  character  set, 
the  device  handlers,  and  both  CIO 
and  SIO.  The  actual  operating  system 
itself  is  the  portion  of  the  OS  ROM 
which  handles  the  I/O. 

PMG,  PM  Graphics:  Player/missle 
graphics.  Players  and  missiles  are  spe- 
cial moveable,  user-defined,  colored 
screen  objects.  They  are  often  used  for 
games,  animation,  or  special  cursors. 
PM  graphics  are  unique  in  that  you 
can  establish  the  manner  (priority)  in 
which  they  interact  with  the  rest  of 
the  screen  display  and  each  other. 

RAM:  Random  Access  Memory.  All 
memory  below  the  OS  area  (0  to 
4915I)  which  is  used  for  storage,  pro- 
grams, buffers,  cartridges,  DOS,  lOCB, 
shadow  registers,  and  registers  for  the 
special  Atari  chips.  Random  Access 
means  you  can  get  to  and  from  these 
locations  at  random,  not  that  they 
store  information  randomly! 

ROM:  Read  Only  Memory.  That 
part  of  high  memory  (locations  49152 
to  65535)  in  which  the  special  hard- 
ware chips  and  the  OS  reside.  ROM 
is  also  used  to  describe  cartridge 
memory  such  as  the  8K  BASIC  ROM, 
which  cannot  be  user-altered  (the  car- 
tridge ROM  supersedes  the  RAM).  You 
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cannot  alter  most  of  the  ROM,  al- 
though some  of  the  locations  in  the 
special  Atari  chips  may  be  temporar- 
ily set  to  a  new  value. 

With  both  RAM  and  ROM,  we  re- 
fer to  areas  with  lesser  values  as  be- 
ing in  "low"  memory  and  locations 
with  larger  values  as  being  in  "high" 
memory. 

SIC:  Serial  Input/Output  routines 
located  in  ROM.  Controls  serial  oper- 
ations including  the  850  interface  (R:) 
and  cassette  recorder  (C:).  Briefly,  SIO 
controls  the  Atari  peripherals  as  per 
the  request  placed  in  its  Device  Con- 
trol Block  (DCB)  by  the  proper  device 
driver.  It  is  also  accessed  by  FMS  for 
data  transfer. 

VBI:  VBLANK  interrupt.  A  VBI  is 
an  interrupt  that  occurs  during  the 
VBLANK  interval,  causing  the  com- 
puter to  jump  to  a  user-specified  lo- 
cation to  process  a  short  user-written 
routine  during  the  VBLANK  process. 

VBLANK:  Vertical  Blank.  The  in- 
terval between  the  time  the  TV  elec- 
tron beam  turns  off  after  reaching  the 
bottom  right  comer  of  the  screen  and 
returns  to  the  top  left  comer  and  turns 
back  on  again.  This  small  time  period 
may  be  used  by  machine  language 
programmers  for  short  routines  with- 
out interrupting  the  display  by  writ- 
ing a  VBI  (above).  There  are  two 
VBLANK  stages.  Stage  one  is  per- 
formed every  VBLANK  cycle  (1/60 
second).  Stage  two  is  performed  ei- 
ther every  1/30  second  or  every  1/60 
second  when  it  doesn't  interrupt 
time-critical  code  being  executed.  See 
the  end  of  the  memory  map  for  the 
processes  executed  in  each  stage.  A 
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A  Graphics  Memory  Map 

This  diagram  is  not  to  scale;  it  is 
merely  meant  to  give  you  a  visual 
idea  of  the  structure  of  the  Atari 
memory.  The  numbers  on  the  right 
are  the  memory  pointers:  these  loca- 
tions point  to  the  addresses  shown. 
The  numbers  on  the  left  are  the  ac- 
tual locations  in  memory. 

Notes 

The  bottom  of  the  BASIC  RAM  de- 
pends on  whether  or  not  you  have 
DOS  files  loaded  in.  Without  DOS, 
LOMEM  should  be  1792,  with  DOS 
7420.  If  you  increase  or  decrease  the 
number  of  disk  and  sector  buffers 
by  modifying  DOS,  this  value  will 
change  again.  See  locations  743,  744 
and  1801,  1802. 

The  size  and  location  of  the  vari- 
able, string  and  array  tables  depend 
on  the  program  use  and  size.  The 
more  variables  and  arrays,  the  larger 
the  memory  the  tables  use. 

The  size  and  address  of  the  Dis- 
play List  and  screen  memory  depend 
on  the  GRAPHICS  mode  in  use. 


The  first  256  bytes  pointed  to  by 
LOMEM  are  the  token  output  buffer 
The  actual  BASIC  program  starts  at 
the  address  pointed  to  by  VNTR 


Atari  Timing 

clock  frequency 
1  machine  cycle 
1  frame 
scan  lines 
color  clocks 
color  clocks 
machine  cycles 
machine  cycles 


Values 

=  1.79  MHz 
=  0.558  Msec. 
=  1/60  second 
=  262/frame 
=  228/scan  line 
=  2/machine  cycle 
=  29868/frame 
=  ll4/scan  line 


VBLANK  time  =  7980  machine  cy- 
cles or  less,  depending  on  GRAPHICS 
mode.  The  shortest  6502  instruction 
requires  two  cycles;  during  that  time 
the  electron  beam  moves  four  color 
clocks. 

Horizontal  blank  time: 

Wide  playfield    18  machine  cycles 

Normal 

playfield  34  machine  cycles 

Narrow 

playfield  50  machine  cycles 


Location 
65535  


Contents 


Pointers 


60906-6S53S 
59716-80905 
59093-59715 

58534-59092 


58533  

58496-58533 
58448-58495 
58432-58447 
58416-58431 
58400-58415 
58384-58399 
58368-58383 


58367 


57344 


57343 


55295 


Top  of  memory    

Operating  System  ROM 

Device  handler  routines  794-831  HATABS 

Serial  Input/Output  (SIO)  utilities 
Interrupt  handler  512,513  VDSLST 

S14-S27  Vectors 
Central  Input/Output  (CIO)  utilities 


Operating  System  vectors    

Initial  RAM  vectors  on  powerup 

IMP  vectors 

Cassette 

Printer 

Keyboard 

Screen 

Editor 


ROM  Character  set. 


756  CHBAS 


Floating  Point  ROM  package 


I/O  chips  . 
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Location 

Contents 

Pointers 

547S4-S5295 

Unused 

54272-54783 

ANTIC 

756        CHBAS 
755         CHI 
564-565  LPEN 
560-561  SDLSTL 
559         SDMCTL 

54016-S4271 

PIA 

636-639  PTRIG# 
632-635  STICK# 

53760-54015 

POKEY 

624-631  PADDL# 
562         SSKCTL 
16          POKMSK 

53504-53759 

unused 

53248-53503 

GTIAorCTIA 

704-707  PCOLR# 
708-712  COLOR# 
644-647  STRIG# 
623GPRIOR 

53247 

Unused  4K  ROM  block 

49151 

8K  BASIC  ROM 

or  Left  cartridge  (A) 

40959 

Top  of  BASIC  RAM  or 

106        RAMTOP 

740        RAMSIZ 

Right  cartridge  (B)  ROM  if  present 

(Atari  800  only) 

Size  and 

location 

vary  wltli 

GRAPHICS 

mode 

Text  window  screen  RAM 

60,661  TXTMSC 

40800  for  GR.O 

Bottom  of  screen  RAM 

88,89     SAVMSC 

40000  for  GR.O 

Display  List: 

560,561  SDLSTL 

39968  for  GR.O 

(OS) 

Top  of  BASIC  RAM 

741,742  MEMTOP 

32768 

32767 

User-proaram  RAM 

The  amount  of  RAM  can  be  ascertained  by; 

PRINT  FRE(O) 

Bottom  varies:  see  note  below 

(13062) 

Depends  on  buffer  area  allocated. 

RAM  used  by  DOS  and  File  System  Manager 

144,145  MEMTOP 

Stack  for  FOR-NEXT  &  GOSUB 

142,143  RUNSTK 
14,15  APPMHI 

Sixe  and 

location 

vary  with 

program 

file 

String  &  array  table  & 

end  of  BASIC  program 

140,141  STARP 

Location 


(7420) 


6781 
6047 
5440 
5377 


1792 


1791. 


Contents 

BASIC  program 
area 


Pointers 


Statement  table:  136,137  STMTAB 

Beginning  of  BASIC  program 

Variable  variable  table  134, 135  VVTP 


VNTP  -t-  1 

132,133  VNTD 

Variable  name  table                       130, 131  VNTP 

BASIC  bottom  of  memory            743, 744  MEMLO 

128,129  LOMEM 

Sector  buffers                                 4921,4937  SABUFL/H 
Drive  <S  sector  buffers                    4905,4913  DBUFAl/H 
DOS  vector                                   10,11     DOSVEC 
DUP.SYS  start 
VTOC  buffer 

DOS  initialization                         12,13    DOSINI 
or  BASIC  RAM  without                 (743,744  MEMLO) 
DOS  resident                                  (128,129  LOMEM) 
FMS  RAM 
DUP.SYS  beginning 

RAM  used  by  OS  and  cartridge, 
(to  bottom  of  RAM) 

Page  six  RAM 

1535 

RAM  us 
(to  bottc 

ed  by  BASIC 

im  of  RAM) 

1408 
1405 

Floating  Point  RAM 
BASIC  RAM 

1151 

Operating  System  RAM 

Cassette  buffer 

Printer  buffer 

lOCB's 

512 
511 

Stack 

256 
255 

BASIC  zero  page  RAM 

Floating  Point  pg.  0 

Assembler  Cart.  pg.  0 

128 
127 

OS  page  zero  RAM 

Zero  page  lOCB 

0 

Bottom  of  memory 

AUGUST  1989 


27 


Carnival 
of  Cartridges 


Food  Fight,  Karateka  and  lots  more  hits. 


Reviewed  by  David  Plotkin 


FOOD  FIGHT 

Food  Fight  ($24.95)  is  a  very  sim- 
ple (but  messy)  game.  You  control 
Charley,  who  starts  out  on  the  right 
side  of  the  screen.  The  object  is  to 
guide  him  to  the  left  side,  where  a 
dripping  ice  cream  cone  awaits  him. 
Charley  has  32  seconds  to  get  across 
the  screen,  otherwise  the  ice  cream 
melts,  costing  him  one  of  his  three 
lives.  Sounds  easy,  right? 

Well,  of  course,  there  is  more  to  it 
than  that!  There  are  manholes  strewn 
across  the  screen,  and  you  must  take 
care  that  Charley  doesn't  fall  into  one. 
More  importantly,  cooks  emeige  from 
these  manholes,  and  they  chase 
Charley  across  the  screen,  trying  to 
keep  the  poor  boy  from  his  just  des- 
serts. If  one  of  these  cooks  touch 
Charley,  there  goes  another  life. 

Fortunately,  Charley  is  not  defense- 
less. There  are  piles  of  food  on  the 
screen,  and  he  can  grab  these  (one  pile 
at  a  time)  and  toss  them  at  the  cooks. 
If  he  hits  a  cook  with  a  banana, 
tomato,  pie,  etc.,  the  cook  becomes 
so  embarrassed  he  turns  red  and 
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leaves  the  screen.  Unfortunately,  an- 
other soon  replaces  him. 

Food  Fight  is  a  challenging  (and 
frustrating)  game  because  the  place- 
ment of  the  food  on  the  screen  ap- 
pears to  be  random.  Sometimes  the 
cooks  start  out  closer  to  poor  Charley 
than  a  pile  of  food  does.  The  cooks 
can  run  faster  than  Charley,  so  unless 
he  can  get  to  a  pile  of  food  and  load 
up  with  some  throwing  weapons,  it's 
curtains  for  him. 

Still,  the  action  is  fast  and  the 
graphics  are  good.  You'll  want  to  use 
a  good  joystick  for  this  one. 


KARATEKA 

In  Karateka  you  are  an  expert  in 
the  martial  art  of  Karate.  Your  village 
has  been  destroyed  and  your  intended 
carried  off  by  the  evil  warlord, 
Akuma.  You  must  defeat  Akuma's 
warriors  in  battle  to  rescue  your 
sweetheart. 

You  can  control  the  blond  hero  of 
Karateka  with  keyboard  or  joystick. 
Using  the  joystick,  pressing  the  but- 
ton quickly  unleashes  a  punch,  while 
holding  down  the  button  results  in  a 
kick.  In  the  heat  of  battle  it's  hard  to 
control  whether  you  punch  or  kick. 
Blows  can  be  directed  high,  medium 
or  low  by  moving  the  joystick  in  the 
appropriate  direction  before  pressing 
the  button. 

The  keyboard  controls  work  quite 
well.  The  arrow  keys  direct  your  alter- 
ego  forward  and  back,  while  an 
easily-reached  set  of  six  keys  direct 
punches  and  kicks.  Because  each  key 
is  assigned  its  own  function,  you  can 
achieve  very  precise  control,  which 
is  certainly  necessary  in  the  upper 
levels  of  the  game. 

ANTIC,  THE  ATARI  RESOURCE 


Atari's  latest  release  of  XE  game  cartridges — ^which  run  on 
all  Atari  XL/XE  computers  with  at  least  64K  memory — revives 
a  number  of  coin  arcade  or  disk  classics  that  had  been 
unavailable  in  the  Atari  8-bit  market  for  some  time. 


Karateka 


SI  «»«:>.«;> 


Crossbow 


mtu\ 


ininini 


In 


>4r        ■'%#       ■-*# 


^vrv^vrn'i'Vt'-mnT^T'ess'xrsti,. 


Crime  Buster 


Crystal  Castles 


Dark  Chambers 


^•:.'^t«."^^51 


Choplifter 


Into  The  Eagle's  Nest 


Airball 


Summer  Games 


As  you  defeat  opponents,  you  be- 
gin moving  towards  the  castle.  Inside 
the  castle,  you  will  have  to  face  more 
opponents,  generally  far  more  skill- 
ful than  those  you  faced  outside.  You 
also  have  to  figure  out  how  to  get  past 
the  diabolically  deadly  iron  gate.  And 
Akuma's  war  bird  will  attack  to  steal 
your  strength. 


Karateka  is  a  multi-faceted  game,  re- 
quiring considerable  arcade  skill,  plus 
the  ability  to  recognize  the  attack  pat- 
terns of  your  opponents.  The  graphics 
and  animation  are  superb.  The 
smoothly  scrolling  high-resolution 
background  is  extremely  realistic,  and 
the  karate  moves  of  both  your  hero 
and  the  opponents  are  true  to  life, 


right  down  to  the  swishing  of  the 
robes.  And  if  you  ever  manage  to  see 
the  final  sequence  (remember  to  bow 
to  your  intended.  .  .)  it  will  make  all 
the  hours  spent  with  this  game  very 
worthwhile. 

CRYSTAL  CASTLES 

In  Crystal  Castles  ($24.95),  you 
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g^ide  Bentley  the  bear  as  he  makes  his 
way  through  a  variety  of  three-dimen- 
sional mazes.  The  paths  in  these 
mazes  are  littered  with  gems,  and 
Bentley  must  pick  them  all  up  before 
he  can  move  to  the  next  level.  He  can 
also  pick  up  pots  of  honey  for  extra 
points. 

A  whole  host  of  creatures  try  to 
prevent  Bentley  from  achieving  his 
life's  ambitions.  These  creatures  in- 
clude animated  trees,  skeletons,  and 
a  swarm  of  bees.  Bentley  can  grab  a 
magic  hat  to  protect  him  for  awhile. 
He  can  also  jump  over  many  of  his 
enemies. 

The  mazes  in  Crystal  Castles  are 
what  set  this  game  apart  from 
others — previously  as  a  coin-op  hit 
and  now  as  an  XE  game  cartridge.  In 
extra-sharp  colors,  the  mazes  simulate 
3-D,  with  gem-laden  paths  on  multi- 
ple levels  connected  by  elevators. 
There  are  also  tunnels,  and  when 
Bentley  goes  into  a  tunnel  or  behind 
a  structure,  he  becomes  an  outline  so 
that  you  can  see  where  he  is. 

Controlling  the  game  takes  a  little 
getting  used  to,  because  the  joystick 
diagonals  are  used  to  guide  Bentley 
through  the  maze.  But  the  system  can 
be  mastered  and  the  game  is  a  lot  of 
fun. 

DARK  CHAMBERS 

Dark  Chambers  ($  34 .95)  is  one  of 
the  best  dungeon  arcade  games 
released  in  XE  cartridge.  Using  the 
joystick,  you  must  guide  your  well- 
animated  onscreen  character  though 
26  mazes.  He  is  armed  with  fireballs, 
and  it's  a  good  thing — these  dungeons 
are  full  of  dangerous  beings. 

At  various  places  in  each  level 
"spawners"  create  the  enemies,  which 
are  set  up  in  levels  of  power.  The  most 
powerful  is  a  Grim  Reaper  Shooting 
one  of  these  turns  it  into  a  Wizard. 
Shooting  a  Wizard  turns  it  into  a 
Wraith,  then  a  Skeleton,  and  finally 
a  Zombie.  Shooting  a  Zombie  kills  it. 
Thus,  some  of  your  enemies  must  be 
shot  five  times  to  kill  them! 

The  spawners  keep  creating  crea- 


tures until  you  destroy  them  by  shoot- 
ing them.  As  you  have  probably  have 
guessed,  it  takes  five  shots  to  destroy 
a  Grim  Reaper  spawner  (through  Wiz- 
ard spawner,  Wraith  spawner,  etc.). 

Fortunately,  the  enemies  aren't  very 
bright  (But  then,  you  aren't  either,  or 
you  wouldn't  be  in  this  dungeon.)  So 
they  simply  line  up  to  be  killed.  You 
lose  life  energy  if  an  enemy  does 
touch  you,  and  the  game  is  over  when 
your  life  energy  is  gone.  You  can 
recharge  your  energy  by  eating  food 
and  drinking  potions  which  are  found 
in  the  dungeon. 

Other  things  can  be  found  in  the 
dungeon,  such  as  the  Keys  necessary 
to  open  locked  sections.  Bombs 
which  destroy  all  enemies  on  the 
screen,  treasure,  or  extra  weapons 
such  as  shields  and  more  powerful 
fireballs  are  also  to  be  found.  But  look 
out  for  the  traps  and  poison,  which 
all  cost  you  life  enei^. 

The  smooth  animation  and  fast  ac- 
tion, coupled  with  the  excellent  play- 
ability  (at  the  beginner  setting,  even 
a  novice  should  be  able  to  survive 
quite  a  while)  make  this  a  superb 
game.  The  26  levels  provide  lots  of 
variations  as  well. 

CROSSBOW 

Crossbow  ($34.95)  is  a  game  for 
the  Atari  light  gun.  The  opening 
screen  shows  a  laige  number  of  loca- 
tions including  a  desert,  volcano,  cas- 
tle, town  and  jungle.  From  your  cur- 
rent location,  two  or  three  paths  are 
available,  and  these  paths  lead  to  other 
locales.  Unfortunately,  the  paths  don't 
show  on  the  screen,  so  you'll  proba- 
bly want  to  map  where  the  three 
color  paths  lead  to  so  that  you  don't 
wander  aimlessly  around  the  screen! 

Once  you  choose  a  path,  the  char- 
acters in  your  party  (referred  to  as 
your  "friends")  set  out  on  their  jour- 
ney. The  scene  switches  to  the  select- 
ed location,  and  your  party  appears, 
moving  leisurely  across  the  screen 
while  all  heck  breaks  loose  around 
them. 

Lai^e  numbers  of  unfriendly  crea- 


tures try  to  wreak  havoc  on  your 
friends.  Lightning  bolts  descend, 
ghosts  appear,  rocks  careen  down  the 
path,  attacks  come  from  spiders,  scor- 
pions, alligators,  pterodactyls  (!)  and 
man-eating  plants — to  name  just  a  few 
of  the  different  hazards  in  each  loca- 
tion. Of  course,  if  anything  touches 
one  of  your  friends,  the  poor  soul  is 
fried  and  no  longer  remains  a  mem- 
ber of  your  party. 

So  what  is  your  job?  Well,  you  must 
protect  the  party  by  shooting  the  ob- 
stacles out  of  the  way  with  your  light 
gun  before  they  can  do  any  harm. 
This  can  be  quite  a  challenge,  because 
not  only  is  the  Atari  Light  Gun  not  es- 
pecially accurate,  you  are  required  to 
protect  four  or  five  characters  from  all 
those  hazards. 

The  game  becomes  a  little  easier  af- 
ter some  members  of  your  party  get 
fried,  but  when  the  last  one  is  gone, 
the  game  is  over  If  you  do  extra  well 
on  a  screen,  another  person  is  added 
to  your  party  (lucky  you!). 

Crossbow,  I  must  admit,  is  just  a  gas 
to  play.  The  effects  are  great  (watch 
closely  when  a  friend  gets  fried),  the 
playability  good  and  addicting — 
you'll  keep  coming  back  for  more. 

THUNDERFOX 

Your  home  planet  is  under  attack 
(again!).  It's  up  to  you  in  your  Feder- 
ation Thunderfox  (S24.95)  space 
fighter  to  destroy  the  alien  transports 
bringing  special  crystals  to  power  a 
deadly  war  machine. 

This  game  is  played  in  stages.  When 
you  first  launch,  you  must  approach 
the  transport,  dealing  with  forma- 
tions of  enemy  fighters  that  try  to 
both  ram  you  and  fire  at  you.  Addi- 
tionally, the  transport  has  powerful 
guns,  and  part  of  the  transport  sticks 
up  so  high  that  you  will  crash  if  you 
try  to  fly  over  these  portions  of  the 
ship. 

Your  fighter  is  armed  with  two 
weapons — guns  which  are  effective 
against  enemy  fighters,  and  bombs 
which  must  be  used  against  the  trans- 
port. The  transport  has  "ground  in- 
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stallations"  which  are  good  for  points 
but  should  be  ignored  because  they 
are  surrounded  by  obstacles  you  can 
crash  into. 

The  object  is  to  bomb  the  two 
"anti-gravity  stabilizers".  Each  one 
must  be  hit  five  times.  Since  you  can't 
carry  ten  bombs,  you  must  return  to 
your  mother  ship  to  reload,  then  re- 
turn to  finish  the  job. 

If  you  can  manage  to  disable  the 
stabilizers,  a  door  in  the  transport 
opens  and  you  enter  the  ther- 
monuclear laser  room.  You  must 
maneuver  through  some  very  close 
quarters  and  avoid  enemy  lasers — 
hurrying  all  the  while  because  of  the 
room's  radiation.  If  you  survive,  the 
third  level  has  you  facing  off  against 
a  large  "Crystal  Guardian,"  which 
takes  multiple  hits  to  kill. 

Thunderfox  is  simply  too  hard, 
lypical  games  last  only  seconds,  es- 
pecially since  your  fighter  "bounces" 
off  the  invisible  boundaries  of  the 
scrolling  screen — usually  into  an  ob- 
stacle. You  can  have  just  a  single  mis- 
sile on  the  screen  at  once,  which  fur- 
ther limits  your  shooting. 

CHOPLIFTER 

The  64  delegates  to  the  Peace  Con- 
ference have  been  taken  hostage  by 
the  Bungeling  Empire  and  placed  in 
locked  bungalows.  Your  mission  in 
Choplifter  ($24.95)  is  to  pilot  a 
helicopter  from  a  secret  base  (dis- 
guised as  a  post  office)  into  enemy  ter- 
ritory and  rescue  the  hostages. 

Your  chopper  can  hold  sixteen 
hostages,  which  means  you  must 
make  multiple  trips.  Each  trip  gets 
harder  because  the  enemy  adds  more 
sophisticated  weapons  to  make  your 
life  miserable. 

On  the  first  level  you  face  tanks, 
which  are  rather  easily  avoided  by 
simply  staying  above  their  fire  and 
blasting  them  into  tiny  pieces  with 
your  guns.  The  danger  of  the  tanks, 
however,  is  that  the  gunfire  will  kill 
some  of  the  hostages,  so  it  is  best  to 
take  out  tanks  as  soon  as  possible. 

You  must  blast  open  each  bunga- 


low. (Or  let  a  tank  do  it  for  you, 
they're  really  good  at  it.)  Little  figures 
will  then  run  out  and  wave  at  you.  Be 
careful  where  you  set  down  your 
chopper,  or  you  might  crush  a  few 
hostages.  When  you  land,  the  figures 
run  to  the  helicopter  and  clunb 
aboard.  You  can  then  fly  back  to  base 
and  unload  for  the  next  trip. 

Starting  with  the  second  trip,  more 
enemies  show  up — jets  firing  missiles 
and  homing  drones.  The  drones  are 
rather  easily  destroyed,  but  the  jets  are 
tough — they  come  in  fast  and  are  hard 
to  hit. 

The  helicopter  can  face  forward, 
left  or  right.  To  switch  directions,  you 
must  press  the  fire  button  and  pull  the 
stick  in  the  direction  you  want  to 
turn.  Unfortunately,  this  is  exactly  the 
same  maneuver  you  make  in  the  heat 
of  battle  when  you  don 't  want  to  turn! 
Thus,  you  end  up  changing  directions 
a  lot  when  you  don't  want  to,  which 
can  shorten  your  games  considerably. 

The  graphics  are  incredible.  The 
helicopter,  enemies,  background  and 
base  are  highly  detailed,  and  the  res- 
cued hostages  even  wave  to  you  as 
they  get  off  the  chopper.  Choplifter 
is  a  timeless  classic  on  the  Apple  and 
Atari  8-bit  computers,  and  the  even 
more  detailed  graphics  in  this  version 
help  make  it  a  very  good  game. 

INTO  THE  EAGLE'S  NEST 

Three  of  your  comrades  have  been 
captured  in  Into  the  Eagle's  Nest 
(S24.95).  The  Eagle's  Nest  is  a  Nazi 
fortress  where  top  officials  are  meet- 
ing to  plan  a  counterattack.  You  must 
try  to  rescue  the  three  saboteurs  and 
blow  up  the  castle  with  the  explosives 
they  planted.  The  castle  contains 
locked  doors,  many  floors,  an  eleva- 
tor, chests,  jewels,  spare  ammunition 
and  many,  many  soldiers. 

You  must  negotiate  the  castle 
(which  looks  suspiciously  like  a 
maze),  blasting  Nazi  soldiers  as  you 
go.  They,  of  course,  shoot  back  (or 
more  accurately,  try  to  hit  you),  and 
if  you  are  hit  50  times,  you  die  and 
the  game  ends.  You  can  recover  from 


these  hits  by  finding  medical  kits  and 
food  which  have  been  rather  care- 
lessly left  about  the  castle. 

Pay  close  attention  to  ammunition 
too,  because  you  can  only  carry  99 
rounds,  and  you  run  out  surprisingly 
quickly.  If  you  manage  to  find  your 
comrades,  you  must  attempt  to  exit 
the  castle  with  them.  This  is  tough, 
because  they  are  weak  and  sick  and 
don't  move  too  fast. 

The  Nazi  soldiers  (This  game 
should  sell  real  well  in  Germany!)  sim- 
ply hne  up  to  be  shot,  much  like  the 
creatures  in  Dark  Chambers.  In  fact, 
this  whole  game  is  quite  similar  to 
Dark  Chambers,  but  not  as  playable. 
Your  lack  of  ammunition  makes  it 
tough,  and  a  single  mistake  (like 
shooting  a  box  full  of  dynamite)  can 
cost  you  the  game!  Overall,  Dark 
Chambers  is  a  better  game  of  this 
same  type. 

CRIME  BUSTER 

Crime  Buster  is  an  exciting  game 
that  uses  the  Atari  Light  Gun  and  pro- 
vides a  "blasting"  good  time.  \bu  play 
one  of  the  city's  top  detectives,  out 
to  wipe  out  crime  once  and  for  all. 

You  choose  a  one-  or  two-player 
game  by  blasting  holes  in  the  appro- 
priate choice.  You  can,  of  course, 
shoot  holes  in  anything  you  want. 
The  destructive  effect  is  quite 
gratifying. 

You  must  choose  a  section  of  the 
city  from  a  map — just  fire  twice  at  the 
section  you  want.  If  the  section  of  the 
city  you  choose  is  not  adjacent  to  the 
section  you  currently  occupy,  you 
must  travel  to  the  portion  of  the  city 
in  question.  Travel  is  very  dangerous, 
and  the  best  strategy  is  to  avoid  it.  If 
you  do  have  to  travel,  your  car  ap- 
pears on  the  screen,  traveling  down 
a  road  which  scrolls  from  left  to  right. 

You  control  the  car  by  firing  at  ar- 
rows pointing  left  and  right,  which 
makes  your  auto  move  towards  that 
direction.  Periodically  a  gangster  car 
appears  and  fires  at  you.  If  it  hits  you, 
your  car  explodes  and  you  lose  one 
of  your  three  lives. 
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To  fire  back,  you  must  shoot  your 
light  gun  at  arrows  which  determine 
your  direction  of  fire.  This  is  difficult, 
since  you  can't  control  the  car's  posi- 
tion and  fire  at  the  mobsters  at  the 
same  time.  It  would  have  made  more 
sense  to  let  you  fire  at  the  mobster's 
car  with  your  light  gun.  If  you  some- 
how manage  to  hit  the  mobster's  car, 
it  rolls  over  and  explodes. 

At  your  destination,  your  goal  is  to 
plug  all  the  gangsters  in  a  classic 
shoot-out,  while  at  the  same  time 
avoiding  the  innocent  bystanders  who 
don't  have  the  good  sense  to  get  out 
of  the  way.  Complicating  matters,  the 
gangsters  sometimes  dress  up  like  in- 
nocent bystanders  to  try  and  fool  you 
into  not  shooting  them. 

Each  scene  is  different.  Settings  in- 
clude buildings,  a  ship,  and  the  inside 
of  a  warehouse.  Gangsters  appear  in 
doorways  and  windows,  pop  out  of 
boxes  and  manholes,  and  even  come 
up  from  the  water. 

The  graphics  in  Crime  Buster  are 
very  good.  The  mobsters'  cars  rolling 
over  and  over  are  very  satisfying. 
"When  you  blast  the  gangster  with  the 
hat  on,  his  face  changes  and  the  hat 
flies  off.  Other  effects  are  equally 
good.  Overall,  Crime  Buster  is  an  ex- 
cellent game  which  will  keep  you 
coming  back  to  try  to  do  better 

AIRBALL 

In  one  of  the  more  bizarre  scenarios 
for  video  games,  you  become  the 
plaything  of  an  evil  wizard  who  turns 
you  into  an  Airball — with  a  slow 
leak!  In  order  to  escape  this  fate,  you 
must  find  a  spellbook  and  return  it  to 
the  wizard.  Of  course,  the  spellbook 
is  hidden  in  a  150-room  mansion, 
which  also  contains  spikes,  needles 
and  other  nasty,  pointed  objects 
detrimental  to  the  health  of  an  airball. 

You  move  from  room  to  room  us- 
ing your  joystick  and  make  your  air- 
ball hop  into  the  air  by  pressing  the 
fire  button.  The  rooms  are  viewed  in 
three-quarter  perspective,  which  can 
be  confusing. 

Bonus  objects  in  the  mansion  in- 


clude gold  bricks  and  precious  stones. 
There  are  also  crates  which  the  airball 
can  move,  to  uncover  valuable  ob- 
jects. You  may  also  find  such  useful 
objects  as  a  lantern,  which  can  be 
quite  handy  in  the  rooms  that  have  no 
light!  When  your  pressure  gets  low, 
you  must  try  to  find  an  air  pump — 
and  then  avoid  death  by  overinflation. 
The  graphics  in  Airball  are  very  well 
done  and  detailed,  with  many  of  the 
rooms  containing  elaborate  decora- 
tions. Strategy  definitely  plays  a  sig- 
nificant part  in  winning  this  game,  as 
it  is  quite  easy  to  get  lost  in  the  huge 
mansion.  Be  warned,  though.  This  is 
an  extremely  frustrating  game,  with 
death  just  the  barest  miscalculation 
away. 

SUMMER  GAMES 

Summer  Games  presents  eight 
Olympic  events  for  you  to  compete 
in,  including  diving,  skeet  shooting, 
pole  vault,  two  swimming  events, 
gymnastics  and  track.  You  may 
choose  to  compete  in  all  the  events 
in  order,  compete  in  a  single  event,  or 
practice  any  given  event. 

If  you  decide  to  compete,  you  must 
choose  a  name  and  country.  Just  high- 
light the  flag  of  the  country  you  want 
and  that  nation's  national  anthem  will 
play.  The  impressive  opening  cere- 
mony has  the  Olympic  theme  play- 
ing, a  runner  lighting  the  torch,  aiid 
doves  flying  away. 

The  events  themselves  basically  test 
your  skill  and  timing  with  a  joystick. 
Some  work  pretty  well,  while  others 
are  exercises  in  torture. 

The  diving  and  gymnastics  are 
similar  in  that  you  must  press  the 
joystick  to  various  positions  to  con- 
trol the  amount  of  "tuck"  your  con- 
testant uses.  Both  events  end  with 
scoring  from  the  judges. 

You  dive  from  the  ten-meter  board, 
and  you  can  choose  a  variety  of  dives 
(forward,  back,  reverse).  You  control 
the  spinning,  twisting  diver  on  the 
way  down.  The  more  difficult  the 
dive,  the  more  possible  points  you  can 
get. 


The  Gymnastics  event  has  you 
leaping  onto  a  springboard,  then 
vaulting  into  the  air  (using  a  vaulting 
horse).  Again,  you  control  the  gym- 
nast as  she  leaps  and  flies  through  the 
air 

The  first  track  event  is  a  four-man 
relay.  Here,  you  control  the  rurmer's 
speed,  trying  to  go  as  fast  as  possible 
without  using  up  the  runner's  stam- 
ina. There  is  also  the  small  matter  of 
passing  the  baton.  The  other  track 
event  is  the  hundred-yard  dash,  a 
"joystick  buster"  —  just  rattle  the  stick 
back  and  forth  as  fast  as  you  can. 

The  two  swimming  events  are  simi- 
lar One  is  four-man  relay,  while  the 
other  is  just  a  two-lap  race  for  a  sin- 
gle swimmer  You  control  the  timing 
of  your  swimmer's  start  and  kick- 
turn,  and  apply  power  to  the  swim- 
mer's arms  at  exactly  the  right  mo- 
ment by  pressing  the  fire  button. 

The  best  event  is  the  skeet  shoot, 
"feu  control  a  cursor  that  represents 
the  aiming  point  of  your  shotgun.  A 
standard  pattern  of  skeet  launchers 
throw  groups  of  up  to  four  clay 
pigeons  into  the  air  and  you  must  fire 
at  them.  This  simple  event  works  very 
weU. 

The  most  difficult  and  frustrating 
event  is  the  pole  vault.  You  must  pre- 
cisely time  the  placing  of  your  pole, 
leaping  up  and  over,  and  releasing  the 
pole  in  order  to  make  it  over  the  bar 
without  knocking  the  bar  off.  Unfor- 
tunately, correctly  timing  that  final 
press  of  the  fire  button  to  let  go  of  the 
pole  seems  virtually  impossible. 

No  computer  game  can  give  you 
the  actual  feel  of  competing  in  a  phys- 
ical sport — but  how  many  people  can 
seriously  hope  to  compete  in  the 
Olympics?  Summer  Games,  with  its 
excellent  graphics,  animation  and 
sound  will  provide  a  good  time  over- 
all for  Olympic  dreamers.  A 
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TYPING  SPECIAL  ATARI  CHARACTERS 


The  Atari  Special  Characters  and 
the  keys  you  must  type  in  order  to 
get  them  are  shown  below: 

For  [CONTROL]  key  combina- 
tion, hold  down  [CONTROL]  while 
pressing  the  next  key.  For  inverse 
[CONTROL]  [A]  through 
[CONTROL]  [Z],  press  the  [3] 
key— or  [^k  ]  on  the  400/800— then 
release  it  before  pressing  the  next 
key.  (Press  [  3  ]  or  [  ^k  ]  again  to  turn 
off  inverse.)  For  [ESC]  key  combina- 
tions, press  [ESC]  and  then  release 
it  before  pressing  the  next  key. 

Carefully  study  the  chart  above 
and  pay  close  attention  to  differ- 
ences between  lookalike  characters 
such  as  the  slash  key's  [/]  and  the 
[CONTROL]  |F]  symbol  [0]. 


NORMAL  VIDEO 

INVERSE  VIDEO 

FOR                  TYPE 

FOR             TYPE 

FOR              TYPE 

THIS                 THIS 

THIS             THIS 

THIS              THIS 

HCTRL    , 

ffi  CTRL  S 

□  ESC 

[BCTRL  A 

n  CTRL  T 

SHIFT 

□  CTRL  B 

B  CTRL  U 

DELETE 

ffl  CTRL  C 

D  CTRL  V 

□   ESC 

O  LJ  T  CT 

91  CTRL  D 

S  CTRL  W 

SHIFT 
INSERT 
D   ESC 

BCTRL  E 

ffl  CTRL  X 

laCTRL  F 

B  CTRL  Y 

CTRL 

S  CTRL  G 

ffl  CTRL  Z 

TAB 

B  CTRL  H 

G  ESC  ESC 

□    ESC 

Q  CTRL   I 

ffl  ESC  CTRL   - 

SHIFT 

B  CTRL  J 

ffl  ESC  CTRL   = 

TAB 

a  CTRL  K 

ffl  ESC  CTRL  + 

n    A  CTRL    . 

B  CTRL  L 

ffl  ESC  CTRL   « 

□    A  CTRL    ; 

n  CTRL  M 

ffl  CTRL    . 

0    A  SHI  FT  = 

Q  CTRL  N 

ffi  CTRL    ; 

□   ESC  CTRL  2 

D  CTRL  0 

QD  SHIFT  = 

a  ESC 

9  CTRL   P 

H  ESC    SHIFT 

CTRL 

ffl  CTRL  Q 
e  CTRL  R 

CLEAR 
31  ESC  DELETE 
(B  ESC  TAB 

DELETE 
O  ESC 

CTRL 
INSERT 

TYPO  II  AUTOMATIC  PROOFREADER 

TYPO  II  automatically  proofreads  Antic's  type-in  BASIC  listings.  Type  in  the  listing  below  and  SAVE  a  copy  to  disk 
or  cassette.  Now  type  GOTO  32000.  At  the  prompt,  type  in  a  single  program  line  without  the  two-letter  TYPO  II 
code  at  the  beginning.  Then  press  [RETURN], 

Your  line  will  reappear  at  the  bottom  of  the  screen.  If  the  TYPO  II  code  does  not  match  the  code  in  the  magazine, 
then  you've  mistyped  your  line. 

To  call  back  a  previously  typed  line,  type  [*],  then  the  line  number,  then  [RETURN].  When  the  completed  line  ap- 
pears, press  [RETURN]  again.  This  is  how  TYPO  II  proofreads  itself. 

To  LIST  your  program,  press  [BREAK]  and  type  LIST.  To  return  to  TYPO  II,  type  GOTO  32000.  To  remove  TYPO 
II  from  your  program,  type  LIST  "D:FILENAME",0,31999,  then  [RETURN],  then  NEW,  then  ENTER  "D: FILENAME", 
then  [RETURN] .  Now  you  can  SAVE  or  LIST  your  program  to  disk  or  cassette. 


t^ 


Don't  type  the 
TYPO  II  Codes! 


UB 

un 

HS 

BN 
VC 

EM 

HS 

XH 


TH 
tIF 


32080  REM  TVPO  II  BV  ANDY  BARTON 

32010  REM  UER.  1.0  FOR  ANTIC  MAGAZINE 

32020  CLR  :DIM  LINE$ €1201 : CLOSE  o2:CL0 
SE  M3 

32030  OPEN  n2,4,0,"E"!OPEN  «3 , 5 , 0 , "E" 

32048  7  ■••<■•:  POSITION  11,1:?  "aatijajaDrw 

32050  TRAP  32040!POSITION  2.3:?  "Tupe 

in  a  prosran  line" 

32060  POSITION  1,4:?  ••  -mINPUT  t>2;LINE 

S:IF  LINES=""  THEN  POSITION  2,4:LI5T  B 

:GOTO  32060 

32070  IF  LINESC1,1>="»"  THEN 

ESC2,LENCLINE*> J> :P05ITI0N  2 

GOTO  32060 

32080  POSITION  2,10:?  "CONT" 

32090  B=UAL(LINE$> :POSITION 


B=UALCLIN 
,4:LIST  B! 


NY 
CN 
ET 

CE 
OR 


MJ 
JU 
EH 
8H 
HB 
IE 

UG 


1,3:? 


,l:? 


lUQIiKilBllill 


.16:INPUT    a3;LINES:IF 
■LINE     "lat"    DEL'ETED":G 


32100  POKE  842,13:ST0P 

32110  POKE  842.12 

32120  ?  "IS":  POSITION  11, 

":POSITION  2,1S:LI5T  B 

32130  C=0:AN5=C 

32140  POSITION  2, 

LINES=""  THEN  ?  • 

OTO  32050 

32150  FOR  0=1  TO  LEN cLINES> : C=C+1 = AN5= 

ANS+CC»ASCCLINE$CD,D>>> :NEXT  D 

32160  CODE=INT CANS/676> 

32170  CODE=ANS- CC0DE«676> 

32180  HC0DE=INTCC0DE/261 

32190  LC0DE=C0DE- cHC0DE»26>+65 

32200  HC0DE  =  HC0DE-i^65 

32210  POSITION  0,16:?  CHR$ CHCODE> ; CHR$ 

CLCODEI 

32220  POSITION  2,13:?  "If  CODE  does  no 

t    natch    press    ■ttjrsllLiniEiJGiiH    and    edit     line    a 

boue.":GOTO    32050 
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MUCH  MORE  THAN  A  PHONEBOOK 


CUSTOMER  LIST  MANAGER 


Article  on  page  8 


LISTING  1 


Don't  type  thcj 
TYPO  II  Codes! 


10  KEM  CUSTIIMER  LIST  MflNnCER 
20  REM  BV  THUnnS  flNDREUS 
30  REM  CCJ1989,  ftNTIC  PUBLISHING  INC. 
4  0  M0N=1 !ZERO=0:TEN=10:5IX=6:51XTY=TEN 
»S1X  :HUN  =  TENMTEN:TUO  =  UON  +  MON:  FIUE  =  5:iin 
X~190Be 

45  REM  THE  FOLLBMING  ML  RBUTINE  MOS 
WRITTEN  BV  SCOTT  SHECK  IN  THE  DEC  1984 
ANTIC 

50  i  iNU=nuR  c"hhn[iihaBRhni!ihaLiaffiaiiBMa[ijnni£i!^ 

\t\  j[iJuean[ij;j[:in»ifiDei[«aiir^)j]nu[^Lio[riQn[iiD[]iE[aD"  > 

55    REM 

6  0  SRCH=nDR  c->hha[iha[ahha[iihn[iiha[iiha[f:)haraein 

niinuiEaii]Q?Qm[;ji^sii]ij[^isB5Bi«n[an?rT]& >  oemi^Q  unsua  ■; 
isiM»  i  [i:iifir3UEa(ii[si[jam[^[anKiiiiciQ[ni^B[:i[.imii][]j[i:]Ok~ji«  ■  ■  > 
65   CHNGR=ADR  c-hhamhniahariihasjamncacianiaQiiiid 
r.  irjiir;iiitri][ij(i'iQiij[9[KSD[a[aijnfflaKi  iia  a  \m\  •  •  > 

?0  DIM  ANS$ CTEN> .LIcHUNl ,UI«CHUN> >US(S 
IXTY»TEN> .FLDScSIXTVJ. TITLES C14> , FNOME 
«  tSIXTVi - HDGS  C4e» 
80  DIM  LScMflX> ,SHIFTSC135> 

85  SHIFTS cuoN>="hhfli[ihC][aheirsjha[iihnnia[i!ihana 

li  ifui  .irdQirdiiiBmuiRB  EaiaisiTjnCfiQniiiiisJsmQ  u  [dietrsQQe  [iioKaean 
effianeQtiieBiainiQrtjeQi" 

86  sHiFT$c76i=" aiijntaRoaEautsirjaQiiitaBiaieamB&auii] 
Ljnrarsjr.in[«niii[iianiaiiiaQ[a[ij[:ird[ia[»Ea[i:iriiiJBi]iis[iO[iiEir3nni$i" 

90  FNnMES  =  "NflME  :  PHONE  s  flDDR  .»  TYPE  sNOT 
E5:":0PEN  MTUO , 4 , ZERO , "K : " : OPEN  «3.13, 
ZERO  ^ "E ! " 

100  PRINT  ••M":POKE  718.198:P0KE  709, ZE 
RO:  POSITION    SIX  ,  ZERO  :  PRINT    "    ■[ijniSaHlSiriGft 

■nn)^nBn>i[-ireir:imr^f:wi»i •■:trap  25000 

lie  PRINT  "A.  START  NEW  LISTS" : PRINT  " 

B.  ADD  TO  LIST*":PFLG=ZEROiDEU=ZERO!CL 

OSE  <tUON 

120  PRINT  "C.  LOAD  LIST  FROM  DISKSI":PR 

INT  "D.  EDIT^UPDATE  LISTffl" 

130  PRINT  "E.  SAUE  LIST  TO  DISKKI"  s  PRIN 

1  "F.  SORT  LISTftl": PRINT  "G.  PRINT/DISP 

LAY  LISTS!" 

140  PRINT  "H.  CHANGE  LIST  TITLE!*!"  =  PHIN 

T  "I.  LOAD  EDIT  OR  UORD  PROCESSOR  FILE 


188  GOS 
T  ccANS 
EN  108 
185  ON 
88,5800 
190  GOT 
288  HDG 
0!PO5IT 
210  L9- 
EM  «"!G 
1080  HD 
B  14008 
1085  IF 
N  TMO.T 
GOSOB  2 

1886  OU 
PRINT  H 
ORY  SPA 

1887  ? 
":LNE=P 
1810  FO 
OB  1688 
1815  IF 
1028  PO 
CHNGR, A 
1830  US 
POKE  84 
2,64 
1033  IF 
OSITION 
NOT  FIT 


UB  20000:IF  NR=ZERO  THEN  IF   NO 
=HON>  OR  cANS=3j  OR  cAN5-9J>  TH 


ANS 
,  60 
0  1 

ION 

OTO 
GS  = 
:HD 

NR 
EN: 
300 
ER  = 
DGS 
CE 
HDG 
EEK 
R  J 
e:P 

FL 
KE 
DRc 
CLE 
,LN 


GOS 
00,8 
00 
|)S!CRE 

TUO 
NR  =  Z 

188 

BAD 
GSC2 

HUN 
PRIN 
0  :RE 
MAX- 
:POS 
RUNN 
S;NR 
C84> 
=  UON 
OKE 
DS  =  " 
84. L 
FLDS 
NCMS 
E:NE 


UB  208,1000,2000.3000,40 
000. 9000 


ATE  NEU  L 

,SIX :GOSU 

ERO : LL=UO 

5 

D  TO  PRES 

1>="  ITEM 

THEN  PRI 
T  "THIS  L 
TURN 

LLsIF  OUE 
ITION  TMO 
ING  LOM": 
+MON:POKE 
iPOKE  702 

TO  TEN:P 
764,255:1 
"  THEN  FL 
NE:PRINT 
1 .LENCFLD 
J+MON>=FL 
XT  J:POKE 


IST":G0SUB  1400 
D  20020 
N:HDGSC17»="  IT 

ENT  list  ":G0SU 

»" 
NT  HDGS:POSITIQ 
1ST  IS  FULL! ! ": 

R<SIXMHUN  THEN 
.TEN:PRINT  "MEM 
GOSUB  23008 

82, SIX:?  :HS=" 
,ZERO 

OKE  85,ZER0:G0S 
NPUT  «16.FLDS 
D$  =  "  " 

"U";FLDS: X=USRC 
$1  1 
DS:LHE=LNE+TWO: 

82,TM0:P0KE  78 


BU 
JK 
QE 


LENCUS>>0UER  THEN  PRINT  HDGS:P 
TMO,TEN:PRINT  "THIS  ITEM  DOES 
!":G0SUB  23888:RETURN 


OH 
IX 
JB 

RR 

DR 

UG 

FL 

MJ 
MB 

DZ 


DG 
FK 


KU 
CT 
ZI 


AA 
OC 
LU 


PU 
ST 
TU 
ZB 

XK 

GM 

NU 

BB 

FG 

OS 
TH 
UH 

f  E 

XL 
XB 
TJ 


18 
IT 
18 
R 

18 
5 

10 
10 
28 
H 
28 
TL 
20 
KE 
20 
SU 
28 
,F 
28 
28 
LE 
20 


35  LSfLL>=US:NR=NR+UON:LIcNR>=LL:POS 

ION  TMO, 22 

48    LL  =  LEN«LSJ+MON:?    "PRESS    LilHHHMJI    FO 

NEXT    ITEM;     gHratiJIi    FOR    MAIN    MENU"; 

50    ANS=PEEKC53279J :IF    ANS=3    THEN    100 


1058 
rURN 
tST     FROM    DISK": PRINT 


60    IF    AN506    THEN 
70     LS<LL>="B":RET 
00     HDGS  =  "!tlLOAD    LI 
DGS:G0SUB    21008 
18     OPEN    ttM0N,4,ZER0,M$:INPUT    ttUON;TI 
ES:?     :?     TITLES;"  "; 

12  INPUT  ttUON.FLDS: YEAR=UAL CFLDSl :P0 
752,U0N:PRINT  YEAR 

15  LS= LL=UON:NR=ZERO :TRAP  2840:GU 

B  20040 
20  MS  = 


FOR  J-UO 


LD$:M$CLENCUS1+Ua 
25  IF  LL*LENcMSi> 
30  LS tLL»=MS :NR=N 
NcLSj+WONrIF  NK<H 
40  POKE  752, ZERO: 
■":CLOSE  nUON:PRINT 
"  ITEMS  ON  THIS  LIS 
2050  GOSUB  2308e:RE 
3000  HDGS  =  "1MEDIT/UP 
GS:POSITIOM  TMO. SIX 
ION?**" 

3010  PRINT  "A.  EDIT 
":PHINT  "B.  EDIT  ON 
3015  PRINT  "C.  UPDA 
RETURN  TO  MAIN  MEN 
3020  GOSUB  28888:M0 
THEN  GOSUB  15848:VE 
8040 

3025  IF  M0DE=3  THEN 
EAR+MON:GOSUB  20040 
3038  ON  MODE  GOTO  3 
:GOTO  3888 
3848  PRINT  HDGS:GOS 


N  TO  TEN:INPUT  mMON 
NJ=FLDS:NEXT  J 
MAX  THEN  2040 
R+HON:LIcNRJ=LL:LL= 
UN  THEN  2020 
TRAP  25000 :LS CLLJ=" 
"SSTHERE  ARE  ";NR; 
T" 

TURN 

DATE  LIST":PRINT  HD 
:PRINT  "MHICH  FUNCT 

AND  UPDATE  1  YEAR!*! 
L  YSt** 

TE  ONLY!*!":  PRINT  -D  . 
U" 

DE=ANS:IF  MODE=MON 
AR=YEAR+MON:GOSUB  2 

GOSUB  212e8:YEAR=Y 

050,3848,3858,28188 

UB  15088:TRAP  25880 
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3050  OPEN  *tU0N,8,ZER0,"D:EDITLIST.DAT" 
:?    »»MON;TITLES:?    *tMON;YEAR 

3051  I2=ZER0:F0R  I=MON  TO  NR:IF  MIScI, 
!»="!»"  THEN  3240 

3053  I2=I2*MaN:P0KE  82,SIX:G0SUB  20108 

3855  POKE  764,255:P0SITI0N  ZER0,22:P0K 

E    82, ZERO:?    "HHtyBBr-l^NEXT    ITEM         HUliflBBfO 

=DELETE    ITEM" 

3868    PRINT    ■'rijn[:l[IBlil=MAIN    MENU         SSH^RED 

0    THIS    ITEM";  :POSITION    SIX , TMO : PRINT    " 

ffll«";:POKE    82.SIX:P0KE    702, ZERO 

3878    GET    ttTMO,A:IF    A=12S    OR    A=156    OR    A 

=15?    OR    A=254    OR    A=255    THEN    3878 

3875    IF    A  =  155    THEN    POKE    85,SIX:PUT    t«3, 

29:G0T0    3878 

3088  IF  A=MON  OR  A=13  OR  A=4  THEN  3100 

3085  IF  A=;27  THEN  I  =  I-MON  :  I2  =  I2-M0N  :  NE 
XT  I:RETURN 

3090  PUT  <t3,A:G0T0  3870 
3100  IF  A04  THEN  3200 

3185  SOUND  ZERO, SIXTY, TEN, TEN:FOH  DELA 
Y=MON  TO  5IXTY:NEXT  DELAV:SOUND  ZERO.Z 
ERO, ZERO. ZERO 

3110  POKE  82,ZER0:P0KE  712 , 52 : POSITION 
2,22:PRINT  "DDARE  YOU  SURE?  cY^N>";:I 
NPUT  ANSS 

3120  POKE  712,ZER0:IF  ANSS=""  THEN  312 
6 

3125  IF  ANSSCM0N,M0N>="Y"  OR  ANSScMON, 
HON>:^"«"  THEN  3230 

3126  I=I-MON: I2=I2-M0N:NEXT  I:RETURN 

ANTIC  SOFTWARE  LIBRARY 


3280  LNE=THO!POKE  82.5IX:P0KE  BB.SlX'f 
OR  J  =  UON  TO  TEN:POKE  84.LNE:INPUT  «3 ,  F 
LDS:IF  FLDS=:""  THEN  FLDS  =  "  " 
3218  X=USRCCHNGR, ftDRcFLDS>,LENcFLDS>J : 
PRINT  «WON;FLDS:LNE=LNE+TMO:NEXT  J 
3238  POKE  782.64:P0KE  B2,TUU:G0T0  3255 


3248  P 
TEN,TE 
3245  R 

R  j  =  ua 

+RXl:L 
3246 

J 
3258 
J!IF  M 
3253  G 

3255  I 
THEN 

3256  I 
8 

3268  N 
3278  T 
INT  HD 
3388  P 
"THE  E 

UPDOT 
3398  G 
4888  H 
DG$  :G0 
:  TROP 
4818  0 
!?  »«M0 
4828  F 
HEN  48 
4838  R 
R  J  =  UO 
+  RX1  :L 
4848  P 
J 

4858  N 
5888  H 
T  TITL 
5818  I 
UON  TH 
5828  I 
UON  TH 
5825  P 

"CHEC 
5838  L 
IXiFOH 
-WON 
5835  P 
5868  R 
5865  B 
=PEEKt 
5898  R 
5188  B 
=PEEKC 
5138  I 
T2}  TH 
5135  I 
T2J  TH 
5148  S 
EEKCUO 
5145  S 
EEKfUO 
5158  I 

THEN 
5168  F 
268 

5190  I 
5288  L 
,  ftJ+RX 
5238  I 
T33  TH 
5235  I 
5T3>  T 
5248  5 
EEKCMO 
5245  S 
EEKCUO 
5258  I 

THEN 
5268  N 
5290  K 
inDR+  c 
>  :LICJ 
5580  N 
6088  H 
6085  P 


OKE  ?52>U0N: PRINT  HDG$ : POSITION 

N:PRINT  "PROCESSING  ITEM  ";I 

Xl=LlclJ-UON:LflDl=RXl+fiDRtLSj!FO 

N  TO  TEN:BEGIN1=0SR(FIND, LADl, J> 

flSTl=PEEKcUON>+BEGINl-MON 

F  J:^5IX  THEN  IF  M0DE  =  3  THEN  NEXT 

RINT  MU0N;L$CBEGIN1, LASTli :NEXT 

0DE  =  3  THEN  PRINT  ttU0N;"B" 

OTO  3260 

F  naDE  =  UON  AND  A  =  13  AND  I2<ITEI1S 

3388 

F  A  =  13  AND  lONR  THEN  GOSUB  2128 


EXT 

RAP 

GS: 

RIN 

NTI 

ING 

OSU 

DG$ 

SUB 

258 

PEN 

N;S 

OR 

58 

Xl  = 

N  T 

AST 

RIN 


I:POKE  752. ZERO  :CLOSE  oUUN 
25808! WS  =  "D:EDITLIST. DAT":  PR 
GOTO  2818 

T  "B"!POSITION  TUO. TENiPRINT 
RE  LIST  MUST  BE  REVIEWED  UHEN 


B 


23888:G0T0  3268 
ISAUE  LIST  TO  DISK' 


:  PRINT  H 
15888:PRINT  HDG$:GOSUB  21888 

88 
»U0N,8,ZER0.US!?    »tU0N;TITLE5 

TR5  CYEARJ 

I  =  UON  TO  NR:IF  UIS  <I .  I J  ="iS"  T 

LI CU -H0N!LAD1  =  RX1  +  ADRCLS»  sFO 

0  TEN:BEGIN1=USRcFIND, LADl , J» 

1=PEEKCU0N>+BEGIN1-U0N 

T  «UON;L$ CBEGINI. LASTIJ jNEXT 


EXT  IsCLOSE  t*UON:RETURN 
DGS="MSORT  LI5T":PRINT  HDGSsPRlN 
E$;"    "jYEAR 

=  UaN:GOSUB  28150: A  =  ANS  !1F  A  =  TEN  + 
EN  RETURN 

=  TUO:GOSUB  20150 : B  =  AN5  :  IF  B  =  TEN  + 
EN  RETURN 

RINT  HDGS!P05ITI0N  TUO , T EN : PRINT 
KING  ITEM  «  ":POKE  752, UON 
AD=ADRCL5J:LIADR=ADRCANSSJ+TEN+S 
I  =  NH  TO  THO  STEP  - WUN  :  11  =  1 : 12  =  1 


osni 

X1  =  LI 
EGINI 
UUN1  + 
X2  =  LI 
EGIN2 
U0N1  + 
F  L$  c 
EN  55 
F  LSC 
EN  51 
TRT1  = 
NJ+5T 
TRT2  = 
NJ+ST 
F  LSC 
5500 
OR  J  = 


ON  19 

CIIJ 

=  USRc 

BEGIN 

CI2J  - 

=  U5R  t 

BEGIN 

BEGIN 

00 

BEGIN 

68 

USRcF 

RTl-U 

USRCF 

RT2-W 

5TRT1 


,TEN:P 
UON: LA 
FIND, L 
1-UON 
MON:LA 
FINO,L 
2-UON 
1,LAST 


RINT  I;"   " 

D1=LAD*RX1 

ADl, Ai+RXl !LA5T1 

D2=LAD+RX2 

AD2. AJ+RX2 :LAST2 


1>  >L$CBEGIN2,LAS 
1,LAST1><LSCBEGIN2,LA5 
Dl. BJ+RXl : FIN1=P 
D2,Bi+RX2:FIN2=P 
>=LSCSTRT2,FIN2J 
I  TO  NR:J1=J:IF  J=NR  THEN  5 


IND,LA[ 

ON 

IND,LAI 

ON 

,FIN1> 


3  =  J  + 
AD3  = 
3:LA 
F  LS 
EN  J 
F  LS 
HEN 
TRT3 
NJ+S 
TRT2 
N»+5 
F  LS 
J  =  NR 
EXT 

cjl 
Il-U 
1>=R 
EXT 
DG$  = 
RINT 


U0N:RX3=LICI3J -UON 

LAD+RX3:BEGIN3=USRCFIND,LAD3 

ST3=PEEKCU0N>+BEGIN3-U0N 

CBEGIN2.LAST21 < LS CBEGIN3 , L AS 

=  NR 

CBEGIN2,LAST2J<>LSCBEGIN3,LA 

5268 

=USRCFIND,LAD3.B>+RX3!FIN3=P 

TRT3-U0N 

=U5RCFIND,LAD2,B>+RX2!FIN2=P 

TRT2-U0N 

CSTRT2.FIN2»  <  = 


LSCSTRT3,FIN3» 


I2J»»SIX:X  =  USRCADHCSHIFTSJ,L 
0N»»*5IX,LIADR+CI2-M0N>»*SIX,K 
X2+U0N 

l!POKE  752,ZER0:RETURN 
"iSPRINT'-DISPLAV  LIST" 

HDGS:POSITION  TUO , SIX : PRINT 


IH 

NL 
UP 
MK 
AR 
OR 

XG 

ES 

ET 
NU 
UH 

5J 


AI 
CV 
HD 
IL 


ZL 
PU 
MQ 

UX 


GT 
CT 


VF 
KU 

TA 

CK 

UB 

XI 
UC 
DZ 

CD 
UA 

CJ 

CB 

LF 

CJ 

UL 
DU 


TV 
ES 

DR 


HH 
KC 

US 
MA 


KV 


■UHICH  PAGES  ARE  TO  BE  PRIN 
CA  -e-  ANSUER  INDICATES  AL 


AUGUST  1989 


"DISPLAY  DE0ICE7UI91" 
6010  PRINT  "A.  SCREEN*": PRINT  -B .  PRIN 
TER*":?  "C  UORD  PROCESSOR  FILE»1":PRIN 
T  "D.  RETURN  TO  MAIN  MENU" 
6828  GOSUB  208e0:ON  ANS  GOTO  6038,6180 
.6488,21828:6010  6885 

6838  M0DE  =  TU0  :HDGS  =  "II«DISPLAY  LIST":GOS 
00  15B80:12=ZERO 

6035  FOR  I=UON  TO  NR:IF  UIScI,IJ="»"  T 
HEN  6898 

6837  POKE  82, SIX  :  LNE  =  TUO: I2  =  I2  +  U0N:G0S 
UB  28100 
6040  POKE  82,TU0 :POSITION  TU0.22:PRINT 

"[!l[;jnri[ilQI=FORUARD    l^gni^[>llLi=BACK    @lir:1[lia  =  HEN 
U"; 

6058  A=PEEKC53279J :IF  CA=3 J + cft=5 J + cft=S 
IX>=ZERO  THEN  6850 

6060  IF  A=3  THEN  IF  I2=ITEMS  THEN  1=1- 
UaN:I2=I2-U0N 
6865  IF  A=3  THEN  6098 
6878  IF  A=5IX  THEN  I=NR:GOTO  6898 
6888  I2=I2-TU0:IF  I2<ZER0  THEN  I=ZERO: 
I2=ZER0:G0TU  6898 

6882  FDR  I1=I-U0N  TO  UON  STEP  -UQN:IF 
UISCII.IIJ O"*"  THEN  I=Il-HON!ll=UON:G 
DTQ  6884 

6883  IF  I1=U0N  THEN  I=ZERO : I2=ZER0 

6884  NEXT  II 

6898    NEXT    I:RETURN 

6188    HDGS  =  "isPHINT    LI5T":G0SUB     15888:NP 

=  INTCCITEMS  +  4J''FIUE>  :  PRINT     HDGS;  "tfiyHBIIil" 

: DEU=UON 

6110  PRINT  "THERE  ARE  ";NP;"  PAGES  TO 

THIS  LISTSl' 

6115  PRINT 

TED?**" 

6117  PRINT  • 

L    PAGES>aB518B- 

6120  TRAP  6120:PRINT  "FIRST  PAGE?  ";:I 

NPUT  «16,FP :FP=INTCFPJ :IF  FP=ZERO  THEN 

FP  =  UON:LP  =  NP  :GOTO  6148 
6125  IF  FP<UON  OR  FP>NP  THEN  6128 
6138  TRAP  6130:PRINT  "LAST  PAGE?  ";:IN 
PUT  «»16,  LP:LP  =  INT  CLPJ  :1F  LP  =  ZERO  THEN 
FP=U0N:LP=NP 

6135  IF  LP<FP  or  LP>NP  THEN  6138 
6148  PRINT  "MBHffllSfflWADJUST  PAPER,  THEN  P 
RESS  ANY  KEY":GET  «TUO.ANS 
6158  TRAP  25888:0PEN  oUON, 8 , ZERO . "P : " : 
PFLG=UON:UP=UON: ANSS=" 
6280  K=-UON:PG=ZERO:FOR  I=UON  TO  NR!lF 

UISCI.1J="BI"  THEN  6350 
6210  K=K+WON:X=K/FIUE:IF  INTcXJ=X  THEN 

6228 
6215  IF  PG>=FP  AND  PG<=LP  THEN  6325 
6217  GOTO  6358 
6228  PG=PG+UON:IF  PG>LP  THEN  I=NR:GOTO 

6358 
6238  IF  PG<FP  THEN  6358 
6310  PRINT  "SPRINTING.  .  .tUHHW":?  ' 
ANY  KEY  TO  STOP" 

6315  JJ  =  48- tLENcTITLESJ+14J''TU0i 
:USCJJJ=US !US  cTUO>=US 
6328  PRINT  ««HON ;  US  ;  TITLES ;  " 

P3 ."; PG 
6325  RX1=LICIJ -UON 

6338  PRINT  «<UON:FOR  J  =  UON  TO  TEN: 
EKc764J<255  THEN  I=NR : J=TEN : POKE 
55:G0T0  6345 

6348  GOSUB  28488:PRINT  »UON;ANSS; 
B  16B80:PRINT  nUON;"  ";FLDS 
6345  NEXT  J:IF  UP  THEN  IF  INTccK+UON>^ 
FIUEi=cK+MONJ^FIUE  THEN  FOR  J=UON  TO  T 
EN:PRINT  ttUON:NEXT  J 
6350  NEXT  I:CLOSE  MUON:RETURN 
6408  HDGS  =  "ISIPRINT  UORD  PROCESSOR 
:GOSUB  15888 

6418  PRINT  HDGS:GOSUB  21888:0PEN 
8,ZER0,US:UP=ZER0:PFLG=U0N:ANSS= 
=  UON 

6420  PRINT  «UON;TITLES;"    ";YEAR 
6430  FOR  I=UON  TO  NR:IF  UIScI.Il="B"  T 
HEN  6350 
6448  GOTO  6325 

8808  HDGS="BCHANGE  LIST  TITLE":G05UB  1 
4888 :POSITION  TU0,5:PRINT  "PRESENT  LIS 
T  TITLE:  ";TITLES 

8818  PRINT  :  PRINT  "YEAR:  ";  YE  AR;  "EBSffi"  : 
GOSUB  20820: RETURN 

continued  on  next  page 
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•PRESS 
iUS="    • 


YEAR; 


IF    PE 
764,2 

:GUSU 


FILE" 

»UUN. 
:DE0 


9eee  HDG$="NRECaUER 
OSITION  TUO.SIX 
9eie  PRINT  "UHICH  F 
"ft.  EDIT  FILEBB":PRI 
OR  FILE99" 
9028  PRINT  "C  RETU 

SUB  2eeee:aN  ans  go 

GOTO  9688 

9840  HS="D!EDITLI5T 

TO  2818 

9858  PRINT  HDGS:GOS 

4,ZER0.US:NR=ZER0:L 

88 

9060  INPUT  »1,FLD$: 

LCI-LDSCX-3.XJ  J  iTITL 

INT  FLDS 

9878  INPUT  ttUON.FLD 

INPUT  «tl,U$:FLD$  =  MS 

tFLDSJ  ^LENcFLDSii 

9075  IF  LENcL$>+LEN 

9188 
9888  L$cl.ENcL$i+UaN 
+M0N!LICNR>=LL!LL=L 
N  THEN  9078 
9188  LS tLLJ="B"!CLO 
14080  POKE  709, TEN: 

HDG$ iPOSITION  TEN. 
14010  PRINT  "BniLOU 

YOU  BELONG  HERE. PR 
14828  PRINT  "FOR  TH 
THE  SPACE  BAR" 
14030  GET  «»2.ANS:IF 
ETURN 

14040  IF  ANS0155  T 
;  :GOTO  14838 
14858  POKE  789. ZERO 

HDG$: RETURN 
15888  PRINT  HDG$ : PO 
T  "HOM  MANY  ITEMS  A 

LUl* 

15810  PRINT  "A.  ALL 

SOME  ITEMS*!":  PRINT  • 

MENU":GOSUB  28800 

15020  ON  ANS  GOTO  1 

TO  15888 

15838  POP  :RETURN 

15848  ITEMS=NR:UI$= 

CTU01=UI$ :RETURN 

15050  PRINT  HDG$:I= 

NS:IF  A=TEN+HON  THE 

15055    LAD=ADRCL$> :P 

64 

15068  POSITION  TUO. 

EBUENCE?":?  " cUSE  • 

HARACTERi" 

15865  PRINT  "(USE  A 

S":INPUT  FLDS:IF  FL 


LIST":PRINT    HDG$:P 

ILE  TYPE?»1»1":  PRINT 
NT  "B.  MORD  PROCESS 

RN  TO  MAIN  MENU": GO 
TO  9040.9850.20015: 

.DAT":PRINT  HDG$:Ga 

UB  21880:OPEN  <tUON. 
S- LL=UON:TRAP  91 

X=LEN(FLDS> :YEAR=UA 
ES=FLDScM0N.X-7» :PR 

$:FOR  J=UaN  TO  TEN: 
(Bi  :X  =  USRCCHNGR. ADR 

CFLD$>+U0N>MAX  THEN 

>=FLD$:NEXT  J:NR=NR 
EN(L$>+UON: IF  NR<HU 

SE  MUON:RETURN 

POKE  718.ZER0:PRINT 

TEN 

T  OPTION! ! !*":?  "IF 

ESS  tsiafwitniii" 

E  MAIN  MENU.  PRESS 
ANS=32  THEN  POP  :R 

HEN  PRINT  CHR$(ANS> 

POKE  718.198:PRINT 

SITION  TMO.SIX:PRIN 
RE  TO  BE  SELECTED?* 

ITEMS*": PRINT  "fl . 
C  RETURN  TO  MAIN 

584  8.15050. 15830: GO 


"»" : MIS tNRJ =UIS : HIS 

UON:GOSUB  28150:A=A 

N  RETURN 

RINT  HDG$:POKE  702. 

SIX:PRINT  "SEARCH  S 
?■  FOR  A  UILDCARD  C 

LL  CAPITAL  LETTERSi 
DS=""  THEN  FLDS="  " 


15 
SE 
IT 
15 
15 
=  L 
15 
1. 
=  L 
15 
i  - 
15 
DR 
15 
MS 
15 
I 
ET 
15 
00 


070  PRINT 
ARCHING-  . 
EMS  FOUND 
100  GOSUB 
110  POKE 
icii -NON 
120  LAD1= 
Al+RXl :LA 
ScBEGINl 
125  MStUO 
1281 

130  X=U5R 
tUSi .LENC 
148  IF  X 
+  MON 

158  POSIT 
:POKE  752 
URN 

168  PRINT 
ND!  !  !SR*": 


HDG$:P 
.":POSI 

21200: 
752. UON 
POSITIO 
LAO+RXl 
ST1=PEE 
LASTli 
N.U0NS= 

CSRCH. A 

US3i 

THEN  UI 

ION  23. 
.ZERO:I 

HDG$:P 
PRINT  " 


OSITION  12.8:PRINT  " 
TION  TEN.TEN:PRINT  " 

ITEMS=ZERO 

FOR  I=UON  TO  NR:RX1 
N  23. 8: PRINT  I 
:BEGIN1  =  U5R  (FIND. LAD 
K(MUN>+BEGIN1-U0N:US 

CHRS (ASC(U$(UaN.UON> 

DRcFLDS) .LEN(FLD$>. A 

S  (I.  I>  ="*"  :  ITEMS=:ITE 

TEN:PRINT  nEMS:NEXT 
F  ITEMSOZERO  THEN  R 

RINT  "*»l**NO  ITEMS  F 
FIELD  «"  ;  A  ;  "SIW" 


15170  PRINT  "SEARCH  SEOUENCE  :":  PRINT  F 
LDS:  POSITION  TMO.  20:  PRINT  "PRESS  mSDHim 
E]" 

15180  INPUT  ANS$:P0P  :RETURN 
16880  PRINT  «DEU;FNAMES(J»«SIX-FIUE,  J»S 
IXJ; :RETURN 

20000  SOUND  ZERO. 125. TEN. TEN:FOR  DELAY 
=UON  TO  TEN:NEXT  DELAY>SOUND  ZERO. ZERO 
.ZERO>ZERO:POKE  764.255 

20005  POSITION  TM0.21:PRINT  "ENTER  LET 
TER:  ";:INPUT  ««16,ANSS:IF  ANSS  =  ""  THEN 
28888 


NH 

EB 
Yl 

CI 

PJ 

NH 
KJ 

PG 

YC 

FT 

XF 

GC 
UY 
XP 

SG 


IS 
EJ 


PP 
EH 

nz 


TD 

SM 
OJ 
EH 


NI 
LE 

QU 
01 
KY 

UT 

XH 


QY 


28018 
<ZERO 
28815 
28020 

>  "!IN 

20830 

EAR:TR 

20035 

0038 

20040 

20045 

ES(LEN 

(FNAME 

20100 

TMO.ZE 

2;"  OF 

20110 

SUB  16 

28115 

28130 

28116 

+  UUN 

28128 

20130 

20150 

ELD  IS 

20160 

>  ;  "  .  " 
XT  J 
20165 
20170 

T  "D": 

8170 

20175 

20180 

20400 

.LADl. 

N 

20410 

ON>=CH 

LG  THE 

20420 

URN 

28430 

(B+MON 

21008 

RINT 

S1":INP 

21805 

21887 

US  (MO 
21818 
21028 
21208 
S:RETU 
23800 

DELAY 
25000 
RINT 
:PRINT 
25810 
5800  :  I 


ANS=ASC(ANSS(UON,MONll -64: IF  ANS 

THEN  ANS=ZERO 

RETURN 

PRINT  "LIST  TITLE?  (14  CHAR.  MAX 

PUT  TITLES:PRINT 

TRAP  20838:PRINT  "YEAR  ":INPUT  Y 

AP  25888 

IF  YEAR<1888  OR  yEAR>2188  THEN  2 

FNAMES=FNAMES(M0N.3  8> 

FOR  I=yEftR-FIUE  TO  YEAR-MON : FNAM 

(FNAMESJ+MONJ=STRS(I> :FNAnES(LEN 

S>+MON>= NEXT  I:RETURN 

POKE  752.M0N:PRINT  "Bl"  :  POSITION 
RO:?  TITLES;"  ".-YEAR;"   ITEM  ";I 

";ITEMS:?  :  RX1  =  LI (I J -MON 
FOR  J=MaN  TO  TEN:POKE  85.ZER0:G0 
888 
JJ=J:IF  nODE=HON  AND  J=TEN  THEN 

IF  MODE=MON  AND  J>=SIX  THEN  JJ=J 

GOSUB  20400:PRINT  FLDS 
NEXT  J:PaKE  752 . ZERO : RETURN 
POSITION  TMO.SIX :PRINT  "UHICH  FI 

TO  BE  USED  FOR  LEUEL  ";I;"?*i" 
FOR  J=:MON  TO  TEN:PRINT  CHRS(64  +  J 
;FNAMES(J«5IX-FIUE. J«SIX-UON> : NE 

PRINT  "K.  RETURN  TO  MAIN  MENU" 
GOSUB  28888:P0SITI0N  TM0.21:PRIN 
IF  ANS<MON  OR  ANS>TEN+UON  THEN  2 

IF  ANS=TEN+MON  THEN  POP  :RETURN 
RETURN 

LAD1=ADR(LS}+RX1:BEGIN1=USR(FIND 
JJ+RXl :LAST1=PEEK(M0N>+BEGIN1- UO 

FLDS=LS(BEGIN1,LAST1> :FLD$(MON.U 
RS(ASC(FLDS(UON.MONl> -1281 :IF  PF 
N  RETURN 
B=LEN(FLDS)+MON:IF  B>48  THEN  RET 


FLDS(BJ= 

>=FLDS(B 

POSITION 

BLANK  EN 

UT  MS 

IF  MS="" 

FLDS="D: 

N,TMO>=" 

FLDS(3J=: 

RETURN 

MIS  =  "!Wi"  : 

RN 

FOR  DELA 

RETURN 

PRINT  HD 

ERROR  ** 

"PRESS 

POKF  752 

NPUT  >tl6 


FLDS(SIXTy>  = 

>  :RETURN 

2.6:PRINT 
TRY  RETURN 


!FLDS 


FILENAME?":P 
S  TO  MAIN  MENU 


THEN  POP 
":IF  LEN(H 
D:"  THEN  R 
MS:MS=FLDS 

MIS(HUN>=U 

Y=HON  TD  5 

GS;  "HI****" 
;  X  :P051TI 
l!ll:(li|[l|IUk'l"!CL 
,ZERO:POKE 
;gs:POP  ■li 


:RETURN 

Si>UON  THEN  IF 
ETURN 


IS :U1S(TU0>=MI 

IXTY»FIOE :NEXT 

:X=PEEK(195> :P 
UN  TUO.TEN^TEN 
USE  ttMON 

e2.TMU:TRAP  2 
OTII  100 


LISTING  2 


AY 
AZ 
(U) 
EU 

IJ 
PR 

UU 

RD 

PV 

TH 
UB 

MY 
KB 
PU 

LH 

UQ 
YC 


10  R 

20  R 

30  R 

40  R 

OTHE 

50  R 

60  D 

EEK( 

70  F 

A  HE 

80  ? 

5 

90  I 

58> 

100 

110 

TIC 

120 

130 

140 

se  s 

150 

C  =  l 

160 

170 


EM 

EM 

EM 

EM 

R 

EM 

IM 

10 

NS 

OF 


(c>  1985.1988  ANTIC  PUBLISHING 

(LINES  10-250  MAY  BE  USED  MITH 
BASIC  LOADERS  IN  THIS  ISSUE. 

CHANGE  LINE  70  AS  NECESSARY.! 

FNS(20> . TEMPS (20> . ARS(93> : DPL=P 
592>:P0KE  10592.255 
="D!LINE5.LST":REM  THIS  IS  THE  N 

THE  DISK  FILE  TO  BE  CREATED 
l«[aisK  or  [Nassette?":  :POKE  764.25 


F   NOT  (PEEK(764>=18  OR  PEEK(764>= 

THEN  90 

IF  PEEK(764>=18  THEN  FNS="C:" 

POKE  764.25S:GRAPHIC5  0:?  "       AN 

S  GENERIC  BASIC  LOADER" 

?  ."BY  CHARLES  JACKSON" 

POKE  10592. DPL:TRAP  200 

?  :?  :?  "Creating  ";FNS:?  "...plea 

tand  bw." 

RESTORE  :READ  LN:LM=LN:DIM  ASCLNi: 


36 


AHS  = READ  ARS 

FOR  X=l  TO  LEN(ARSi  STEP  3:P0KE  75 

ANTIC  SOFTWARE  UBRARY 


DM 
BK 
MM 

CM 

UU 

OR 
PU 
OL 

GC 
PJ 

I.M 

RF 

JU 


2,25 
180 
wn  ■  ■ 
198 
1  :NE 

2ee 

MANV 
E  !  •■  : 
210 

LIN 
220 
sset 
238 
240 
250 


5 

LM-L 
.T-" 
ftS  tC 
XT  X 
IF  P 
DAT 
END 
IF  C 
ES!  •• 
IF  F 
te. 
OPEN 
POKE 
CLUS 


M-l!POSITION  18.10:?  " cCountdo 

;INT  tLM/'10>  ;■■> 

,C>=CHRScyfliLcflRScX,X+2>>>!C=C+ 

:GOTa    160 

EEKH95>=5     THEN    ?     :?     =?    "QTOO 


a    LINES! 


•CONNOT  CREATE  FIL 


<LN*1  THEN  ?  !?  "QTOO  FEU  DATA 
:?  "CANNOT  CREATE  FILE!"!END 
NS="C:"  THEN  ?  =?  "  Prepare  ca 
press  CRETURNJ" 

»1.8.0,FNS 

766,1:?    ttl;A$::POKE    766.0 
E    »l:GRnPHICS    0:?    ■' ■rHQIIilillKiinCitLOB 


1008 

1818 

68062 

88318 

1020 

08014 

09619 

1830 

41155 

04003 

1040 

06104 

16520 


DATA  4 
DATA  0 
040034 
413300 
DATA  0 
165003 
800323 
DATA  2 
054048 
410410 
DATA  1 
133209 
524006 


21 

53848 

10410 

21690 

00132 

20800 

02122 

30000 

03208 

41332 

04104 

10413 

31652 


032070 
413300 
011332 
213177 
820017 
080022 
288224 
388206 
841841 
133205 
328816 
892888 


8730 
1104 
1216 
8808 
7800 
3021 
2300 
7072 
3328 
1041 
9000 
0616 


78868 

13308 

8 

16018 

81625 

3 

01208 

06106 

3 

33207 

13321 

5 


0610650 
0104133 

1980022 
1132001 

2200340 
5068082 

1841332 
2133213 


PF 


NK 


DA 


UC 


DS 


UU 


HH 


RX 


VM 


TZ 


105 
010 
Oil 
106 
982 
205 
107 
650 
133 
108 
861 
802 
109 
730 
133 
lie 
121 
856 
111 
241 
824 
112 
738 
283 
113 
822 
238 
114 
982 


8  DATA 
632400 
201091 
0  DATA 
082302 
208287 
0  DATA 
680828 
206104 
0  DATA 
982052 
230204 
0  DATA 
700840 
204104 
0  DATA 
332052 
165203 
0  DATA 
652031 
165207 
0  DATA 
700848 
145207 
0  DATA 
400142 
208208 
8  DATA 
072062 


208 
3684 
1760 

206 
0620 
2302 

054 
4003 
1332 

009 
0880 
1691 

228 
3604 
1332 

133 
0888 
2292 

229 
8120 
1812 

101 
3604 
1652 

198 
3020 
2201 

204 
0224 


1972051440 
1127209206 
0702410503 
2400171652 
6882230207 
1209603404 
0530320670 
4104104133 
0516000017 
1281452831 
5165206208 
2704920305 
0340411550 
0087879878 
0310413320 
2071041332 
2198286196 
0713320916 
2060052092 
5133203165 
0513320716 
2060341550 
0055854041 
1220888219 
2122088841 
3288882238 
6520320888 
1962831652 
0200096034 


53160000 

24003220 

2209 

08288002 

02414420 

1155 

72076071 

20410413 

7203 

65205208 

88189623 

6176 

56853032 

04106103 

6184 

13133206 

28516808 

5284 

48885176 

20410120 

5208 

56054032 

06103413 

8213 

65213240 

20423020 

2198 

87208002 

155 


1772032 
1065144 

1982891 
0200196 

0628618 
3283104 

0021962 
0203206 

0830726 
4104104 

1041332 
0162001 

0272320 
6133204 

0830720 
3206177 

8362240 
7208224 

1982081 


FASTER  FRAQALS  GROW  IN  YOUR  ATARI 


SUPERHOP  ACTION! 


Article  on  page  20 


LISTING  1 


SUPERHOP  ACTION! 

BY  DOUGLAS  SKKECKV 

(019B9,  ANTIC  PUBLISHING  INC. 


DEFINE  BEGIN: 
ENDIF= 


■DO- 
•FI- 


.ENDUHILE- 
. END="GD" 


•00- 


MODULE 
CARD  ARRAV  LINE (192> 

BVTE  ARROV  RSH3 c32e> . FILENAME (16} 
BVTE  KEV=764,DISPLfiV=559,IOTYPE=8  50, 
SCREEN-SIZE, R1,R2,Z,MENUKEY, 
CLEAR.  LARGER.  StlALLER.  UP,  DO  UN, 
LEFT, RIGHT, SPACEBAR, LOAD.  SAUE, 
CREATE, DEMO. DEMOMODE, ON. OFF, PY 
INT   CX, CY,X, Y, XX,I, J.IC, JC, X0, Y0 
CARD  BUFFER-ADDRESS=852,CnUNT,PX, 
BUFFER-LENGTH  =  856,  5CREEN  =  B8 

PHOC  INITIALIZE-PLOT t> 
GRAPHICS(8+16i  SETCOLOR c2 , 8 . e> 
FOR  PY=0  TO  191  BEGIN 

LINE(PYJ=SCREEN  +  48»*PY 
END 
FOR  PX=e  TO  319  BEGIN 

RSH3CPX>=PX  RSH  3 
END 
RETURN 

PROC  PLOTCCARD  PX,BYTE  PY> 

BYTE  POINTER  PT 

BYTE  ARRAY  0N= tl28  64  32  16  8  4  2  13 

PT=LINECPY»  +  RSH3CPX> 

PT^==K0NCPX«7> 
RETURN 

PROC    CI0=$E456cBYTE    flREG.XREG>C] 


PROC    DISKDIRO 
BYTE     ARRAY     FILESc20> 
GRAPHICScei 

SETC0L0RC2,9,8>     SETCOLOR C4 , 9 , 0> 
CLOSEtlJ     OPENCI,  "Dl  :».»■■, 6,  B> 

p  R  IN  T  E  c  ■•■■■■■■■■■■■(QQtiiaamnmgiHnruBiiai 

INPUTSDC1,FILES> 
UHILE    F1LES(16><>-S    BEGIN 
PHINTF C-XSXS". FILES,"        "> 


AUGUST  1989 


INPUTSDC1,FILE5> 
ENDUHILE 

PRINTFC"XE>'.S>'.5>'.E",  "  ".FILESJ 

CLOSEcli 
RETURN 

PROC  CHOOSE-FILEO 

BVTE  ARRAY  TEMP C16> 

PRINTC"==>"> 

ZERO  cFILENAnE,ie> 

FILENAMEC1J=-D 

FILENAME C2>=-1 

FILENAME (3>= • : 

KEY=CLEAR  INPUTScTEMPJ 

S ASSIGN (FILENAME, TEMP,4,16> 
RETURN 

PROC  LOAD-FRACTALO 
DISKDIRO 

p  R I N  T  E  ( "■■iin(ii[^Bnmiiu[p[^rM-iiiimBD[iian[!i[:ima[iiriHa[ami'^M"  > 

CHOOSE-FILECJ 

CLOSEcli 

OPEN  (1, FILENAME, 4, 01 

GRAPHICS(8+16i  SETCOLOR (2 , 8 , 0> 

I0TYPE=7 

BUFFER-ADDRESS=SCREEN 

BUFFER-LENGTH=7680 

CI0(8,16> 

CLOSECli 

KEY=CLEAR 

DO  UNTIL  KEY=LOAD  OR  KEY^DEMO  OR 

KEY=CREATE  OR  KEY=MENUKEY 
END 

INITIALIZE-PLOT (J 
RETURN 

PROC  SAUE-FRACTALO 
BYTE  ARRAY  S AUESCREEN C7eBe> 
MOUEBLOCKCSAUESCREEN. SCREEN,  76801 
DISKDIRO 

p  R I N  T  E  c "  ■■iiiaiijr^anD!iB[an[trii[iim[iii«n[iiai^raL!JisHsin[ijniii[ti[«a"  > 

CHOOSE-FILEO 

CLOSEtlJ 

OPENCl, FILENAME, 8, 01 

continued  on  next  page 

37 


DDRESS=SnUESCREEN 
EMGTH=768e 

1 

ZE-PLOTCJ 
KCSCREEN.SRUESCREEN. 76881 


ci 

ce>  po 


I0TYPE=1 

BUFFER-B 

BUFFER-L 

CIOce.16 

CLOSEci> 

INITIflLI 

nOUEBLOC 
RETURN 
1 
PROC  MENU 

GRAPHICS 

SETCOLOR 

PRINT c-B 

PUTECJ  p 

PRINTEf 

PRINTEC" 

PRINTEC" 

PRINTEC" 

PRINTEC" 

PRINTEC" 

PRINTEC" 

PRINTEC" 

PRINTEC" 

PUTECJ  p 

PRINTEC" 

KEY=CLEfi 

UHILE  KE 

BEGIN  EN 

INITIOLI 
RETURN 

PRBC  SETUPci 

CLEftR  =  255  CREnTE  =  18  DEt10  =  58 

nENUKEV=37  LnRGER=55  SnALLER=54 

UP=14  DBUN=15  LEFT=6  RIGHT=7 

LOnO^e  SAUE=62  SPnCEBAR=33 

0N  =  34  OFF  =  e  DEI10naDE  =  BFF 
RETURN 

PROC  NEU-PARAMETERSO 
BVTE  ATTRftCT=77 
ATTRACT=e 

x=e  v=8  z=8  cauNT=e  X8=e  ve=e 

CX=2ee+2MRANDce>+RANDce> 

CV=2ee+2»HANDce>*RANDC8> 

R1  =  1«^RANDC5>     R2=2  +  RANDC4> 

JC  =  S>6    IC  =  168    SCREEN-SIZE  =  e 
RETURN 
; 

PROC    DRnU-FRflCTDLci 
BYTE    mTRnCT=77 
ATTRnCT=e 
IF    V>=e    THEN    J  =  JC<-     c¥    RSH    SCREEN-SIZE> 

ELSE    J=JC-     «-V    RSH    SCREEN-SIZE! 
ENDIF 
IF    X>=e    THEN    XX  =  y+CCX    RSH    RU+CXJ 

IF    J>e    AND    J4191    THEN    I=IC<^  CX    RSH    SCREEN-SIZE> 


KEC7S2,1> 

>     SETC0L0Rc4.9.e> 

■■■■■■■■■■■■■■@[a[sis[9n;i[ii[i»iBHaHMBHBanB- 

UTEcj  PUTECJ  PUTECJ 
Press  Si  To  Return  To  THIS  (■ienu"J 
Press  tfl  To  Turn  [Qenonode  On"J 
Press  H  To  Sreate  a  Fractal"! 
Press  a  To  (load  a  Fractal  Picture"! 
Press  @  To  gave  a  Fractal  Picture"! 
Press  B  To  Zoon-out  For  a  Uider  Uiew* 
Press  Q  To  Zoon-in  Or  Magnifii"! 
Use  Cursor  Kes»s  To  Houe  Fractal"J 
Press  Spacebar  To  Toggle  Dispiau"J 

UTECJ  PUTECJ  PUTECJ 

BY  Dousias  SKrecKU"J 

R 

Y=CLEAR  OR  KEY=SAUE  OR  KEY=SPACEBAR 

DUHILE 

ZE_PLOT  CJ 


IF  I>e  AND  K319  THEN  PLOTCI.Jl 
ENDIF 
ENDIF 
ELSE  XX=V+IC-X  RSH  H2J-CX> 
IF  J>e  AND  J<191  THEN  I=IC-C'X  RSH  5CREEN-S1ZE1 
IF  I>e  AND  K319  THEN  PLDTCI,J> 
ENDIF 
ENDIF 
ENDIF 

Y=CCY-X>  Z==+l  X=XX 
IF  Z=8  THEN  Y==-7 
ENDIF 

IF  OEnonaDE=oN  then  cdunt==+i 

IF  C0UNT>15eeB  THEN  KEY=DEnO 
ENDIF 
ENDIF 
RETURN 

PROC  CHANGE-PARAnETERSO 
IF  KEY-nENUKEY  THEN  MENUO  INITIRLIZE-PLOT  c> 
ENDIF 
IF  KEY=SPACEBflR  THEN 

IF  OISPLflY=OFF  THEN  D1SPLAY=0N 
ELSE  DISPLAY=OFF 

ENDIF 

KEY=CLEAR  RETURN 
ENDIF 

IF  KEY  =  SAUE  THEN  SAUE-FRRCTAL  "  RETURN 
ENDIF 

IF  KEY^LOAO  THEN  LOAD-FRACTAL c>  NEM-PARAMET ERS c>  RETURN 
ENDIF 
IF  KEY=DEnO  THEN  DEnOnaDE=ON  NEU-PflRAHETERS o 

ELSE  DEnOnODE^OFF 
ENDIF 

IF  KEY=CREATE  THEN  NEU-PAHAMETERS <> 
ENDIF 
IF  KEY=LAReER  AND  SCREEN-SIZE >1  THEN  SCREEN_SIZE==- 1 

IC  =  2»'IC-162  JC=2»JC-96 
ENDIF 
IF  KEY=SnRLLER  AND  SCREEN-SIZE <B  THEN  SCREEN-SIZE==tl 

IC= tl62+IC>'2  JC=t96+JC>'2 
ENDIF 

IF  KEY=LEFT  THEN   IC==-18 
ENDIF 

IF  KEY=RICHT  THEN  IC==+ie 
ENDIF 

IF  KEY=UP  THEN      JC==-1B 
ENDIF 

IF  KEY=DOUN  THEN   JC==+1B 
ENDIF 

ZERDcSCREEN,76ae> 
X=B  Y=e  Z=8  COUNT=B 
KEY=CLEAR 
RETURN 

PROC  HDPDEHOo 
SETUPCJ 
nENUO 
NEU-PARAHETERSO 

UHILE  KEY=CLEAR  BEGIN 

DRRU-FRRCTALCI 
ENDUHILE 
CHftNGE-PARRMETERSd 
END 
RETURN 


ANIMATION  WITHOUT  PLAYER/MISSILES 


HI-RES  PUT  AND  GET 


Article  on  page  15 


LISTING  1 


Don't  type  the, 
TYPO  II  Codts! 


'<:^ 


UD 
UU 
XT 
FJ 
DU 
UT 
PS 
RH 


UU 
HA 

MG 
ZZ 
UU 

FP 
IF 
CL 

38 


Rtn 
REn 

REH 

REM 

REM 

REM 

REM 

e  Din 

XUIDT 

DE  =  7i 

e  GRA 

0  SET 

OR  e, 

e  Gos 

e  REM 

e  COL 

1S9. 
e  REH 
8  C  =  l 
e  FOR 


HIGH  RES 
REUISION 
BY  BRAD 
tCJ1989, 
ADD  ONE 
TO  CALCU 
IHAGE  IS 
It1flGE$c 
H=18' VLE 
DX=*l:DY 
PHICS  7+ 
COLOR  4. 
1.12 

UB  leee 

wwwwwwD 
OR  2>PL0 
95:DRAMT 

WMWWWWD 

iB=2iR=e 
1  =  0  TO 


GLUT 

1.1 
TIMM 

ANT 
TO  X 
LATE 

TO 
1821 
NGTH 

*l: 
16 
O.Oi 


ION  PUT  AND  GET 


INS 
IC 
MID 
ST 
BE 
iXS 
=  18 
P  =  0 


PUBLISHING  INC. 
TH  AND  YLENGTH 
ORAGE  SPACE  IF 
STORED  STRING 
TART=11< YSTART=11 
!HGET  =  0:HPUT  =  ltGI1 


SETCOLOR  1.3.4iSETC0 


RAU  BORDERS"*"**"*** 

T  0.O:DRAUTO  159.0:DRAUT 

0  8,95:DRAUT0  0>0 

RAU  BALL*"********* 


GP 
KJ 
LR 
EJ 
SJ 

MB 

LX 

OP 


HO 
HX 
TQ 

HM 

MM 


100  FOR  X=-R  TO  R 

110  IF  C=l  THEN  C=2>B=l:G0T0  130 

120  C=l:B=2 

130  Y  =  SQR  C R**R ~ X**X  J 

140  COLOR  C:PLOT  20->^X .  20  +  Y  :  DRAMTO  20  +  X 

.20-Y 

150  COLOR  BiPLOT  20i-X ,  18  :  DRAMTO  2a  +  X.2 

2 

160  NEXT  X 

170  REM  *****«*»****SAUE  IMAGES************ 

180  HGET=USRC1536,XSTART. YSTART.XMIDTH 

.  YLENGTH.  ADR  c IMAGE $i+P,GI10DE,HGET I  >  P  =  P 

+9l!C=2!NEXT  I 

190  P=0 

200  HEM  *****"**"*MOUE  BALL************ 

210  IF  XSTART=1  OR  X5TART=158- XMIDTH  T 

HEN  DX=-DX 

220  IF  YSTAHT=1  OR  YSTART=94- YLENGTH  T 

HEN  DY=-DY 

230  P=P+91!IF  P=182  THEN  P=0 

ANTIC  SOFTWARE  LIBRARY 


JI 

HJ 
HO 
NF 

nz 

JO 
HU 

nu 


RK 

EU 

BB 
VH 

JD 

nc 

10 
FU 
DY 


240  XSTfiRT=XSTnRT*DX! V5TftRT=V5TnRT+Dy 
258  HPUT=USR(1536.XSTART, VSTORT.XUIDTH 
.VLENGTH,  ADRcinRGE$>+P.Gt10DE,HPUT>  CD 

260  GOTO  210 

975   REM   MWWMWWWMWHWMMMWWWWMMWWWMWWWWW  ES 

980  REM  Hi9h  resolution  PUT  and  GET 
985  REM  Hachine  language  subroutine- 

990   REM   MWWWWMWWWWMMWMWMMWWWWMWWMWWWW  FC 

995    REM    X  =  USR(1536.  XSTART. YSTART. XUIDT 
H.VLENGTH.ItlOGE. GRAPHICS    MODE  >  COntlANDi 

1080  FOR  T=1536  TO  1773iREAD  A:POKE  T, 

A'MEXT  T 

1005  FOR  T=1021  TO  1143>READ  A:POKE  T.       XZ 

A<NEXT  T 

1007  RETURN 

leie  DATA  162.13, 104, 104, 149. 212. 202,1       NY 

6,250,165,214,201,3,144,4.201,14, 144,1 

,96,56  GU 

1028  DATA  165.214,233.3.170.189.79.4.1 

33.231.189.90.4,133.232.189.181.4.133, 

234,165  GJ 

1030  DATA  88,133,203,165,89,133,204,16 

5,212,240,72,32,253,3.165,228,133,229, 

32,211,6  IK 

1048  DATA  166,234,160,0,177.216,164,22 

9,37,227,240,9,177,203,5,226.145,203,2 

4,144,8  GU 

1050  DATA  165,226,73,255,49,203,145.20 

3.70.226.208.3.32.197.6.70.227.208.3,3       I.F 

2,202 

1060  DATA  6,202,208,212,198,235,208,20       DZ 


6,198,236.240.202 

.188.96.32 

1070  DATA  253,3,1 

,6,166.234,164,22 

6,240,9 

1080  DATA  177,216 

,8,165,227,73,255 

6,208,3 

1090  DATA  32,197, 

,6.202,208,212,19 

,240,202 

1100  DATA  32,224, 

102,226,230,229,9 

,2,230,217 

1110  DATA  96,165, 

33,236.165.233.13 

01.232.133.203 

1120  DATA  165.204 

.0.133.228.56.165 

1130  DATA  6,133,2 

4,225,240,8,133,2 

8,231,165,224 

1140  DATA  133,233 

164,234,6,233,136 

189,112,4 

1150  DATA  133,226 

227.166.222.202,2 

,24,144,245 

1160  DATA  230,218 

1,96,4, 8,4. 8.4.8. 

1170  DATA  10.20.2 

0,2,1,2.1,2.1.4.4 

1180  DATA  128.64. 


.32.224,6.198.218.208 

65.228.133.229.32.211 
9.177.203.160.0.37.22 

.5.227.14  5.216.24.144 
.49.216.14  5.216.70.22 

6.70.227.208.3.32.202 
8.235.208.206.198,236 

6,198,218,208,188,96. 
6,102,227,230,216,208 

220,133,235,165,221,1 
3,226,96,24,165.203.1 

.105.0.133.204,96,169 
,224,229,231,144 
24.230,228.208.243,16 
24,198,225,230.228,20 

,165,234,201,1,240.8. 
,136,208,250,166,233, 

,133,233,169,128,133. 
24.255.240,6,32.224.6 

.230.220.208.2.230.22 

2,2,2.8.4,10 

0.40.40.40.40.40.28.4 

,4.1.2 

32.16,8,4.2. 1 


BASIC  VARIABLE  RENAMING  TOOL 
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LISTING  1 


Don't  type  the  Cc^^ 
TYPO  II  Codes!   \i>»^ 


Ht 
ML 
Ul. 
EU 
Oh 
ZC 

NH 
Ct 
DF 
KO 
UU 
II 
EJ 
NQ 
UJ 
LD 
AX 
ZH 
EQ 
NU 

DM 
HM 
LP 
AN 

MC 
PJ 
UL 
UZ 

MP 
UP 

C2 
CU 

in 


0  GUTU  31500 

31500  REM  VARIABLE  RENAMING  UTILITY 

31581  REM  BY  DOUG  UNITE 

31502  REM  (01989  ANTIC  PUBLISHING  INC 

31504  ?  "SS":  POSITION  2.2 

31505  ?  ■■     UARIABLE  RENAMING  UTILITY 


31506 

31507 

31508 

31510 

31512 

31514 

31516 

31518 

31528 

31522 

31524 

31526 

31528 

31530 

:GOtO 

31532 

31534 

31536 

31538 

RXABL 

31540 

31542 

31544 

31646 

Si 

31548 

31550 

ES 

31552 

31554 

31556 


?  ••  BY  DOUG  UHITE" 

CLK 

DIM    UARNAMESC2O00> .NAnE$cl28> 
DIM    YNStl> 

UNT=PEEKcl30»+256«PEEKtl31> 
N=l :FLAG=0 

REM  . . .  GET  NEXT  UARIABLE  NAME 
BYTE=PEEKCUNTJ 
NAMES CN.N>=CHR$CBYTE> 
REM  ■ .  0  INDICATES  END  OF  TABLE 
IF  BYTE=0  THEN  31602 
REM  ...  CHECK  FOR  INUERSE  CHAR. 
IF  BYTE<128  THEN  UNT=UNT+1 s N=N+1 
31520 

NAMEStN.N>=CHRScBVTE-12eJ 
IF  NAME«="UARNAMES"  THEN  31602 
?  !?  NAME*:? 

?  "DO  YOU  UANT  TO  CHANGE  THIS  UA 
E  NAME  cY.'N>  "; 
INPUT  YNS 

IF  YNS="Y"  THEN  31558 
REM  . . .  PUT  OLD  NAME  IN  UNAMES 
NLEN^LENtNAMESj : ULEN=LEN (UARNAME 

NAMES tN,N>=CHRStBYTE> 
UARNAMEStULEN+l.ULEN*l+NLEN>=NAM 

UNT  =  UNT  +  1  !N  =  l:NAMES  =  "  •■ 

GOTO  31520 

REM 


RE 
\\\ 
UC 

UT 

BU 
JZ 

KH 
MC 
FM 
EQ 

OC 

LF 
GN 
NM 
KK 
FB 
OP 

BH 

CZ 

EJ 
UI 
BY 
RB 

CS 
MD 
LO 
AE 


1558  FLAG= 
1560  NAMES 
1562  ?  :? 
? 

1564  ?  "N 
NG  NAME- 
1566  ?  • 
1568  ?  • 
AY  NAME' 
1570  ?  ■ 


1572  INPUT 
1574  NLEN= 
1576  IF  BY 
>"S"  THEN 


1578 
>■■  <•• 
1580 
1582 


IF  BY 
THEN 

?   !  ? 

?  "IS 


1584  INPUT 
1586  IF  YN 
1588  REM  . 
1590  NLEN= 

1592  NAMES 

LEN.NLENli 

1594  UARNA 

S 

1596  UNT=U 

1598  GOTO 


l:REM  ..  DENOTES  A  CHANGE 

"   INPUT  NEU  UARIABLE  NAME" 

THE  LAST  CHARACTER  OF  A  STR 

MUST  BE  -S'" 

THE  LAST  CHARACTER  OF  AN  RR 

MUST  BE  • €•":? 

NAMES 
LENcNAMESi 

TE=164  AND  NAMES CNLEN, NLENi 
31558 

TE=168  AND  NAMES cNLEN, NLENi 
31558 
NAMES:? 

THIS  CORRECT  cY^NJ  "; 

YNS 
S="N"  THEN  31558 
. .  PUT  NEU  NAME  IN  UNAME$ 
LENcNAMESi : ULEN=LEN tUARNAME 

CNLEN,NLEN>=CHRSCA5CCNAMESC 

+  128> 

MES tULEN+l,ULEN+l*NLEN»=NAM 

NT+liN=l!NAMES="  " 
31520:REn  ..GET  NEXT  NAME 


1600  REM 

1602  IF  FLAG=0  THEN  ?  "NO  CHANGES  MAD 

"•■  END 

1604  REM 

1606  REM  . 

1608  UNT=P 

1610  UNT1= 


. .  STORE  OLD  POINTERS 

EEKC130> 

PEEKC13U 


AUGUST  1989 
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BR 
DE 
KK 
UA 
LN 
BO 
TO 
DQ 
MX 
NX 
EH 
SN 
Gfl 

LU 
KZ 
RT 
EU 
IL 
KA 

CS 
US 
UK 

Ml 

UP 

ZJ 
CE 
Ml. 
PJ 
EB 

UQ 

jn 

LP 
GL 
Bl. 
XI 
(>H 
YA 

NK 
TK 
ES 
ZU 
RE 
UE 
EU 


31612  UNT2=PEEKC132J 

31614  UNT3=PEEKC133J 

31616  TRAP  31698 

31618  ULEN=LENCUARNAME$> 

31620  UARNAMESCUI.EN*1.ULEN  +  1>=CHRSC0> 

31622  REM  . . .  MAKE  UNTP  &  UNTD 

31624  REM  . . .  POINT  TO  UNAME5 

31626  UNADR=ADRCUARNAME$> 

31628  HIBVTE^INT  CUNADR-'2S6J 

31630  L0UBYTE=UNftDR-256»HIBYTE 

31632  REM  . . .  POKE  HIBVTE  &    LOMBYTE 

31634  REM  ■ ■ ■  INTO  UNTP 

31636  POKE  13e.L0MBYTE:P0KE  131.HIBYTE 

31638  UNEND=UNADR+LENcUnRNAME$> 

31640  HIBYTE  =  INT  cUNEND''2B6J 

31642  L0MBYTE=UNEND-2b6»HlBYTE 

31644  REM  ...  POKE  HIBYTE  &  LOMBYTE 

31646  REM  ■ . .  INTO  UNTD 

31648  POKE  132,L0MBYTE!P0KE  133, HIBYTE 

31650  REM 

31652  ?  "»••:  POSITION  2,2 

31654  ?  "INPUT  THE  NAME  OE  THE  DISK  EI 

LE" 

31656  ?  "THAT  YOU  MANT  TO  USE  FOR  THE 

MODIEIED" 

31658  ?  "PROGRAM.    '.LST*  MILL  BE  ADDE 

D  I  OR  YOU" 

31660  ?  "      EXAMPLE:   0 : FILENAME" = ? 

31662  NAI1ES  =  "" 

31664  INPUT  NAMES 

31666  IF  LENcNfiMES>=0  THEN  31652 

31668  IF  NAMESC2,2J=":"  AND  LENcNAME$> 

<11  THEN  31678 

31670  IF  NAMESC3.3»="!"  AND  LEN(NAME$> 

<12  THEN  31678 

31672  ?  :?  "THE  NAME  YOO  CHOSE  IS  TOO 

LONG" 

31674  ?  "PLEASE  INPUT  A  SHORTER  NAME" 

31676  GOTO  31660 

31678  NAME ScLENt NAME S>+1>=".LST" 

31680  LIST  NAMES. 1, 31499 

31682  GRAPHICS  0:POSITION  2,4 

31684  ?  "ENTER  "; CHRS t34> ; NAMES ; CHRS c3 

41 

31686  POSITION  2,1 

316  8  8  ?  "waiia^^if^BriU^tiiiraiiiB" 

31690  NEU 

31692  END 

31694  REM  ...  ERROR  TRAP  ROUTINE 

31696  REM  ...  RESTORE  OLD  POINTERS 

31698  ?     :?    "KlIlEllBreraiin^t^Kr^lillilKUStliraB" 


TK 
ED 
FU 
HI. 
Zl 


31700  POKE  130, UNT 

31702  POKE  131,UNT1 

31704  POKE  132,UNT2 

31706  POKE  133,UNT3 
31708  END 


LISTING  2 


BL 
JK 
LB 

TL 
LR 
OJ 
UC 

HM 
QA 
HM 

TT 
NX 
HR 
BX 
EF 
QU 
MB 
KG 
ZH 
JB 
QY 
UZ 
EB 
RE 
BF 
FU 
MD 
NL 
HT 
AN 
GO 
JX 
IG 
RB 
PS 
HU 
OA 
RI 
UJ 
UZ 
EC 


10  REM  SHELL  SORT 

15  REM  BY  DOUG  UHITE 

17  REM  tC»1989  ANTIC  PUBLISHING  INC 


20 
30 
40 
60 
c< 
60 
70 
80 
ED 
90 
10 
11 
12 
13 
14 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
10 
10 
10 
10 
10 
10 


DIM 
GRA 

?  " 
■7   : 

100 
INP 
IF 

tl'S 
FOR 

0  fl( 

0  NE 

0  ? 

0  PO 

0  RE 

0  RE 

0  PS 

0  PS 

0  IF 

0  RE 

0  PS 

0  ? 

0  RE 

0  FO 

0  TE 

0  K= 

e  FO 

0  IF 

8  AC 

0  NE 

0  AC 

0  NE 

0  IF 

0  RE 
00  R 


10 
20 
30 
40 
50 


AC1000 
PHICS  0 
SH 
?  "HOU 
0>" 

UT  NUM 
NUM>100 
?  "FILL 

N^l  TU 
NJ-INT t 
XT  N 
:  "3  •■  »w 

KE  18,0 
M 

M  

IZE  =  1 
IZE=PS1 

PSIZE< 
M 

IZE=INT 
"PARTIT 
M 

R  N-l+P 
MP-ACNJ 
N-PSIZE 
R    J  =  K    T 

TEMP<A 
J+P5IZE 
XT  J 
J+PSIZE 
XT  N 

PSIZE> 

M  

EM 

=PEEKt2 
OUND  3, 
OR  N  =  l 

:  ?  T'6 
ND 


ELL  SORT" 

MANY  i«-S  ARE  YOU  SORTING 


0  THEN  50 

ING  THE  ARRAY  UITH  UNSORT 

NUM 
10000«SINCN>1 

*       SORTING   »«»»" 
:POKE  19,0:POKE  20,0 

BEGINNING  OF  SHELL  SORT 

ZEH3+1 

NUM  THEN  520 


CPSIZE^3> 
ION  SIZE  =  • 

SIZE  TO  NUM 


■,P5IZE 


0  1  STEP  -PSIZE 
cj>  THEN  650 
J=A  cj> 


>=TEHP 

1  THEN  550 
END  OF  SHEL 


SORT 


0J+256»PEEKC19» 

100,10,2 

TO  NUM:?  N,ncN>  :NEXT  N 

0;"  SECONDS  " 


THE  GREAT  PASTA  SAUCE  CHASE .  .  .  DONT  ASK! 


GOOD  KING  2URP 
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LISTING  1 


Don't  type  the 
TVPO  II  Codes! 


<^ 


xz 

GN 
FF 
DU 

PU 

PC 

XM 

AF 

XB 

BP 

40 


0  REM  GOOD  KING  ZURP 

1  REM  BV  FRANK  MARTO 

2  REM  CCJ1989,  AMTIC 

3  DIM  F$ C131 :GRAPHIC 
N=e:POSITION  3,10 

4  7  «6;"ANTIC  PRE5EN 
UB  300e:GOSUB  400 

5  GRAPHICS  17:TUM=9: 
00:S1=19:S2=20:CTT=0 

6  POKE  756,CH/256 :S5 
5CR=PEEKt88J+256«P 
GOSUB  lllll:POKE  7 


7 
7 
8 

8  FOR  G=2  TO  7:P0SIT 
DDDDDDDDDDDDDDOO" : SO 
EXT  G 

9  FOR  G=8  TO  22:P0SI 

ND  8,0,0,0:NEXT  G 


NE 

POBLISHING  INC. 
S  17iP0KE  708,15iS 

TS":GOSUB  1000:005 

SC=0:BRS=30:DIFF=4 
!BI=5:S3=l:54=23 
=0: S6=3:EG=18:G0B= 
EEKt89» 
11,255:P0KE  708,13 

ION  0.G:?  o6;"DDDD 
UND  0,G+6,10,7-G:N 

TION  0,G:?  tt6  ;  "BUBU 
OUND  O,G,10,ie :SOU 


SJ 
ZM 
FM 
JO 
CY 

ZE 

TK 

XL 
OK 


11  F 
=  INT 

12  ? 
TO  1 

13  F 
INT  c 

14  ? 
TO 

15  F 
NDC8 
UND 

16  X 
3:P0 

17  P 
UND 
SITI 

18  P 
EBB" 
20  P 


OR  B 
cRND 

«6; 
:NEX 
OR  T 
RND  c 

W6; 
3:NE 
OR  C 
>»18 
0,0, 
=  10: 
SITI 
OKE 
0,G« 
ON  1 
OSIT 
:  COL 
OSIT 


=1  TO  BRS:Kl=INTcRNDce>Ml9i :K2 
C0iw2e>+3:POSITION  Kl , K2 
"R!]":SOUND  0  ,  20  ,  10  ,  10  :  FOR  HJ  =  e 
T  HJ:SOUND  0,0,e,0:NEXT  B 
=1  TO  EG:E1=INT CRND C0J«19> :E2= 
0]W201+3:POSITION  E1,E2 
";":SOUND  0 , 120 , 18 , 10 : FOR  HJ=1 
XT  HJ:SOUND  0,8,0,0:NEXT  T 
=1  TO  GOB:POSITION  RNDce>Mi8,R 
+  3:?  ««6;"J":S0UND  0,C,10,10:SO 
0,0:NEXT  C 
Y=12:U=10:TIME=0:FOR  G=10  TO  1 

ON  9,0:?  M6; NEXT  G 

SCR+X+20»Y,10:FOR    G=l    TO    80:SO 

2,0,ie:NEXT    G:SllOND    0,0,0,0:PO 

6,1:?    «»6;"  +  ":TIME  =  30 

ION    0,0:?    *t6  ;  "P!artliai^BBBnBI!1SBBnfl 

OR    32:PL0T    X,Y 

ION    9,1:?    tt6;INT CTIMEJ ;"     ";:G0 

ANTIC  SOFTWARE  UBRARY 


SUB  4iee 

21  5T=PEEKt632> : T H=PEEK c644 J !TP=SCR+X+ 

2e»«V:P0KE  709, 14:P0KE  77.0 

2&    IK     TiriE<ll     THEN    SOUND    1 ,  TIME  +  30 ,  10 . 

10 

31  POSITION  1,1!?  «t6;SC:P0SITI0N  17,1: 
?    tt6:TUn 

32  LOCATE     X,y,DC 

33  IF  BC=35  THEN  FOR  G=l  TO  4!F0K  K=-l 
5  TO  15  STEP  3:S0UND  0 , ABS cRi +35 . 10 , 18 
:NEXT  R!NEXT  G!5C=S 

35  SOUND  1.0,0,0!TIME=TIHE-0.5 :U=U+1 :l 
F  TIHE<1  THEN  7800 

47  IF  BC=247  THEN  FOR  M=15  TO  0  STEP  - 
2:SaUND  0.30. 10.U:NEXT  U:SC=SC+100 

48  IF  BC:=59  THEN  FOR  M=15  TO  0  STEP  -2 
iSOUND  0,MK8. 10,M:NEXT  U:SC=SC+250 

49  IF  BC=10e  THEN  FOR  U-70  TO  60  STEP 
-2:S0UND  0 . RND C01 «5+3 . 10 . 8 : NEXT  UsSC^S 
C  +  50e 

50  POKE  SCR+X+20«V.U: IF  BC=40  THEN  GOS 
UB  300 

51  POKE  709.0:IF  X>18  THEN  POKE  SCR+X+ 
20»Y. 0! X=X-1 

52  IF  X<1  THEN  POKE  SCR+X+20»Y . 0 : X=X+1 

53  IF  Y<3  THEN  POKE  SCR+X+20«Y , 0 = V= V+1 

54  IF  Y>22  THEN  POKE  SCK+X+20»Y , 0 : Y=Y- 
1 

55  IF  RNDC0>W6<4  THEN  GOSUB  500 

57  IF  RND(0>w5<2  AND  SO15000  THEN  GOS 

UB  550 

56  IF  RNDf0iM4<2  AND  5029000  THEN  GOS 
UB  580 

60  SOUND  8,O,0,0:IF  BC=45  THEN  GOSUB  9 
0 

61  IF  X=S1  AND  Y=S2  THEN  GOSUB  300 

62  IF  X-S3  AND  Y=54  THEN  GOSUB  300 

63  IF  X=S5  AND  Y=S6  THEN  GOSUB  300 

64  IF  SC>600a0  THEN  POKE  710 . PEEK C5377 
01 

65  IF  SO39000  AND  PEEK  C53770J  =44  THEN 
GOSUB  100 

66  IF  SO100000  THEN  POKE  710.0!FOR  D  = 
1  TO  l:NEXT  D 

80  IF  U>11  THEN  U^IO 

81  POKE  7e9,0!POKE  709.14:IF  RNDc0j*DI 
FF<13  THEN  POSITION  RND t0 J »19. RND t0>»l 
8  +  3:?  o6;  "-■•:  SOUND  0.255.10.5 

82  GOTO  20 

90  FOR  R=l  TO  4:P0SITI0N  X.Y:?  «6;"-"i 
FOR  D=l  TO  10:NEXT  D:SOUND  0.255,10.10 

91  POSITION  X.Y:?  «»6 ; FOR  0  =  1  TO  10 

:NEXT  D:SOUND  e.0.0.0:NEXT  R:GUSUU  300 
94  RETURN 

100  POSITION  RNOC0>»19. RND t0>»18+4 :?  « 
6;  ■■««•• 

101  FOR  R=2  TO  20:SUUND  0 . R«4 . 10 . 10 : SO 
UNU  1, RM8. 10.10:POKE  712 . Rm5 : SOUND  2.R 
.10,10:POKE  712.R:NEXT  R 

102  POKE  712.0:rOR  T=0  TO  3:S0UND  T,0. 
0.0:NEXT  T:RETUHN 

300  POSITION  X,V:?  «6;"+":F0R  G=14  TO 

1  STEP  -l:FOR  M=l  TO  25:NEXT  U:POKE  70 
8, 64+G 

301  SOUND  0.  G. 10. G: SOUND  1 .  G  +  2 , 10 , G : NE 
XT  G:POKE  706 , 206 : SOUND  0 .  0 . 0 . 0 : SOUND 
1.0.0,0 

302  FOR  EX=4  TO  6:P0KE  SCR+X+20»Y , EX : F 
OR  U=l  TO  30:NEXT  M:SOUND  0,EXw4,10,ie 
:NEXT  EX:POKE  SCR*X+20»Y . 0 : X=10 : Y=12 

303  FOR  5=0  TO  2:S0UND  S,0,0.0:NEXT  S 

304  TUM=TUn-l 

305  IF  TUn=0  THEN  GOTO  5000 

306  FOR  L=15  TO  1  STEP  -0.3:SOUND  I.E. 
6.L:S0UND  2,L.6.L:NEXT  L 

310  FOR  R=0  TO  2:S00ND  R.0.O.0:NEXT  R 

311  POSITION  SI. 52:?  u6 : POSITION  S 

3.S4:?  «6; POSITION  S5.S6:7  «6;"  " 

312  51  =  3  :S2  =  19: 53  =  18 :S4  =  19!S5  =  3: 56  =  3 :P 
OKE  708.138 

320  RETURN 

400  GRAPHICS  17:P0KE  711,137:51=19:52= 

18:53=2:54=16: 55=0:56=5: POKE  756,CH^25 

6:P0KE  709,14 

405  DL=PEEKC560J*256»PEEKC561> :POKE  DL 

+13,7 :POKE  DL+15,7 

409  POSITION  3,7:?  «6;"j  j  j  J  J  J  J  J 


LY 

KO 
00 

LZ 
00 

FU 

UK 
2L 

XO 

TT 
IK 
OT 
RH 
FT 
VF 

nu 

XG 
UN 
XX 
UP 
EX 
CL 
RC 
EK 
BR 
AX 
CX 
YK 

HN 
SX 
XD 

XD 

KC 

MH 

SC 
KM 
JU 
JL 

FM 
UL 
RT 
UA 

DM 
XK 
HT 

LJ 
DO 
KF 

TA 

KU 
MF 

YU 
HD 
NQ 

UN 

AB 
UH 
JU 

PZ 

TU 


HF 

BR 

SL 
01 


410  POSITION  3,6:?  o6 ; •■omEDsrinms  satBmmm 

••:5N  =  5N  +  1 

411  POSITION  10,10:?  m6;5N 

412  POSITION  3-11:?  «t6;"J  j  J  j  J  j  j 

417  FOR  G=l  TO  2 

420  FOR  D=15  TO  0  STEP  -1:S0UND  0,34,1 
0,D:POKE  706,D:NEXT  D:NEXT  G:RETURN 
500  SNK=5CR+51+20«52:5U=58 


51 
52 

5 
52 

5 
52 
52 
52 
55 
55 
55 
55 
55 
56 
56 
58 
56 
58 
58 
58 
59 
59 
10 
10 
12 
10 
10 
10 
,B 
11 
,  3 
11 
68 
11 
18 
11 
11 
11 
11 
1 

11 
11 
11 
11 
6 

11 
11 
11 
,0 
11 
11 
11 

11 

40 

11 

11 

0 

11 

11 

11 

7 

11 

70 

11 

11 

30 

70 

38 


0  POKE  SN 

1  IF  Y<52 
29 

2  IF 
29 
5  IF 


K,0:SOUND  0,20,6.5 
AND  X=S1  THEN  S2=S2-1:GOTO 


Y>S2  AND  X=51  THEN  S2=S2+1:G0T0 


IF 


X<S1 
X>S1 


6 

9  POKE  SC 
0  5NK1=SC 
POKE  SN 
IF  X<S3 


8  IF  X>S3 

9  IF  Y<S4 

0  IF  Y>S4 

1  POKE  SC 
0  SNK2=SC 
5  POKE  SN 

7  IF  X<S5 

8  IF  X>S5 

9  IF  Y<S6 

0  IF  Y>S6 

1  POKE  SC 
00  REM  -- 

10  CH=CPE 
:POKE  CH+ 
20  KE5T0R 
30  READ  A 
40  FOR  J= 
:NEXT  J:G 
00  DATA  1 
6 

10  DATA  1 


THEN 

THEN 

R  +  51  + 

R  +  53  + 

Kl.  0: 

THEN 

THEN 

AND 

AND 

R  +  53  + 

R  +  55  + 

K2,  0: 

THEN 

THEN 

AND 

AND 

R  +  S5  + 

CHARA 

EKC10 

I, PEE 

E  110 

:  IF  A 

8  TO 

OTO  1 

0,0,1 


51  =  5 
S1  =  S 
20*52 
20*S4 
SOUND 
S3  =  S 
53  =  5 
X  =  53 
X  =  S3 
28*54 
20*56 
SOUND 
55  =  5 
55  =  5 
X  =  S5 
X  =  55 
20*56 
CTER 
61-8J 
KC573 
0 

<8  TH 
7:REA 
830 
89,12 


1-1 :5U=58 
l+l:SU=7 
.SU :RETURN 
:SU=58 

0.10,6,5 
3-1 !SU=58 
3*1: 5U=7 
THEN  54=54-1 
THEN  54=54+1 
. SU:RETURN 
:5U=58 

0.3.6.5 
5-l:5U=58 
5+1: 5U=7 
THEN  56=56-1 
THEN  56=56+1 
,5U:RETURN 
5ET-- 

*256:F0R  1=0  TO  5 
44+I> :NEXT  I 

EN  RETURN 

D  B:POKE  CH+A*8+J 

6,235,255,255,126 


1,8,36,126.255.186,255,126. 


15 

9 

20 

25 

30 

40 

191 

43 

46 

49 

50 


DATA  12. 0, 60, 126. 126. 255. 106. 126, 


DATA  4.0,0,4,8,16,8,64,0 
DATA  5,1.66,0.34,8,64,28,128 
DATA  6.0,0,4,80,8.28,8,8 
DATA  2,255,253,239,247,255.191. 


25 


DATA  58.46,68,56,8,18,34,36,24 

DATA  55,8,15,31,62,124,120,112,0 

DATA  63,7,5,7,56,40,184,128,128 

DATA  42,56,64,14  6,2  54,170.84,48,1 


70  DATA  3,146,84,16,238,16,84,146,0 

75  DATA  26,0,8,0,8,8,8.1,3 

76  DATA  27,0,126.255.171.171,255.255 

77  DATA  28.0,0,8.8.8.8.128.192 

78  DATA  29.7,7.7.15.15.15.15.7 

79  DATA  38.255.156.8,8.207.8.156.255 

60  DATA  31,224,224,112,112,112,112,2 

,224 

81  DATA  32,7,3 

62  DATA  61,189 


,7,24.48,24,4,0 
.195.255.126.60.24,24, 


63  DATA  62.224.192,224,24,12,24,32.0 

84  DATA  49.0.8.8.255.8.255.8.0 

90  DATA  8,170.77,170,77,170,77,170,7 


91  DATA  13,254,170.170.178,170,170,1 
.254 

92  DATA  7,6,13 

93  DATA  8,3,19 
00  GRAPHICS  17 
8.75:P0KE  711, 
03  POKE  710,25 


,14.8,68,66,34.28 
2.12,0,51,0,6,96,  -1 
:P0KE  756,CH<'256  :POKE 
15:P0KE  789,11 
5:P05ITI0N  4,7:?  »t6  ;  "  j 


jJi  jJJj  JJJJ" 
3026  POSITION  9. 
9,10:?  u6:"BaB" 

3040  COLOR  81:PL 
LOT  0,3:DRAUTO  1 

3041  L=0.2:POSIT 
aaQQQQQQQIlQQ" 
3099  RESTORE  320 
3180  READ  F$:IF 


9:?  M6;"BEIB":  POSITION 
POSITION  9.11:?  tt6;"C] 

OT  0,22:DRAUTO  19,22:P 
9,3 

ION  0,3:?  ««6:"aQaaaQaa 


8:R=4 
FS="X' 


AUGUST  1989 


THEN  GOTO  3580 

continued  on  next  page 
41 


3101  POSITI 
0  STEP  -1. 

3102  POSITI 
310S  H=R+l: 
3208  DATA  G 
X 

3500  POSITI 
a[i:ei[i4":  SOUND 
3503  FOR  G= 
D  0,J*2,0,R 
3505  POKE  7 
D  0,0.8.0:5 

4000  GRAPHI 
708,14!POKE 

4001  P=5:CC 

4082  COLOR 
T  0,22:DRAU 
4004  POSITI 

10O":GOSUB 
4805  POSITI 

250":GOSUB 
4006  POSITI 

508" :GOSUB 
488?  POSITI 
5088" : GOSUB 
4886  POSITI 
ERS  D" 
4889  POSITI 
R-" 

4010  POSITI 
FOR  D:^l  TO 

4011  POSITI 
FOR  D=l  TO 
THEN  GOTO  3 
4015  IF  PEE 
4020  GOTO  4 
4100  POKE  T 
<12>  :  V:3^V+c5 
4900  FOR  D- 
10.D:NEXT  D 

5000  POSITI 
0  0  STEP  -1 

5001  FOR  R= 
10  ••  NEXT  £  =  5 
5005  FOR  D= 

5010  POSITI 
5050  FOR  L=: 
UND  l.L.6.1 
5061  SOUND 
5065  C=C+l: 
TART":C=C+1 
S076  IF  C=2 
l:COLOR  e:P 

TO  5:NEXT 
5080  IF  PEE 


ON  R.7:?  «»6;">'.":F0R  D  =  15  TO 
3:S0UND  0 . D  +  10 , 8 . D  :  NEXT  D 
ON  R.7!?  «6;FS; 
GOTO  3100 
O.O.D,J,K.I,N.G.J.Z,U,R,P, 

ON  2.16:?  tt6;"  (iJ»B[^[:(ri1»liaBI<i[:1[:< 
0.8.8.8  :SOUND  1.8.8.0 

1  TO  100:FOR  J=:15  TO  0  :  SOON 

:SOUND  l.J»3,0.J 

09. J+108:NEXT  J:NEXT  G:SOUN 

OUNO  1,0.0,0 

CS  17:P0KE  756  .  CH'' 256  :  POKE 
710.55:POKE  709.255 

=  0:PO5ITION  4.2:?  «6;"  HfilHm 


8l:PL0T  0,3:DRAMTO  19, 3i 
TO  19,22 


PLO 


ON  l.P :?  »6 

4900 
ON  1. P:?  «6 

4900 
ON  l.P: ?  «6 

4988 
ON  l.P:?  «6 

4988 
ON  1,17 


ON  1,19 


«6j 
»6j 


PASTA  PKT    w 
SEASONINGS  B 
GARLIC        m 
SPEC.  PASTA  « 
"AUOID  COLLAND 
"AUOID  MAGGOTS 
"PRESS  START": 
"press  start" : 


:CC=CC+l:IF  CC=3e 
6  THEN  GOTO  5 


ON  5.21: 

5e:NEXT 

ON  5.2l: 

50:NEXT 

000 

Kt53279> 

018 

P,0  :X  =  X+cST<8> - C5T>8  AND  ST 

T=13>-t5T=14> : RETURN 

15  TO  0  STEP  -l:SOUND  0,50, 

:P=P+3 :RETURN 

ON  17,1:?  »6;"8":F0R  E=14  T 

:POKE  7ie,64+E 

1  TO  18:NEXT  R:SaUND  8.E.0, 

C=0:5N=0 

7  TO  12:P05ITI0N  5,0=?  «6 ; " 
":NEXT  D 

ON    6,8:?    «6 ;  "HfflClHBmnHrB" 

20  TO  ?0:SOUND  0,L.18.18:SO 

0:NEXT  L 

0. 0.0. 8  :SOUND  1.0.8.8:C  =  8 

POSITION  5.10!?  t«6j"PRESS  5 

8  THEN  FOR  1=19  TO  0  STEP  - 
LOT  I.0:DRAMTO  I.23:F0R  D=l 
D:NEXT  I:GOTO  3880 
KC53279J=:6  THEN  SN  =  0!GOTO  5 


6808  GOTO  5065 

7000  COLOR  176:PL0T  9,l:CaL0R  42:PL0T 
X,  Y 

7001  SOUND  8,255.10,18 :SOUND  1,254.18. 
10:FOR  L  =  l  TO  58:P0KE  710 . PEEK  153770 J  : 
NEXT  L 

7002  RESTORE  7180 

7005  READ  MUSIC:IF  MU51C=255  THEN  7120 


7010 
STEP 
7025 
EKC53 
7100 
96,  1. 
1.91. 
7120 
712.  8 
7122 
:NEXT 
7201 
7202 
7204 
7287 
SUB  4 
7218 
710. P 
:GOTO 
9000 
CH''25 
:CTT  = 
9001 
3" 


SOUN 
-1.5 
NEXT 
7781 
DATA 
96.9 
96,9 
SOUN 
:FOR 
PLOT 

D:N 
IF  D 
CTT 
IF  C 
EG  =  E 
88:8 
GRAP 
EEKt 

7 
GRAP 
6:P0 
0 
POSI 


D  8,nUSIC.18.18 :FOR  G=7  TO  1 
:SOUND  1. MUSIC. 18. G+4 

G:PaKE  712. MUSIC: POKE  718. PE 
sGOTO  7005 

121. 1.121. 121, 96, 114, 121. 96. 
6.81.91.96,91,91,1,91,91,76,8 
6,114,114.121.121.121.255 
D  0. 8.8.8 :SOUND  1,0.0,8:POKE 

1=0  TO  19:C0L0R  0 

I.0:DRAUTO  I,23:F0R  D=l  TO  5 
EXT  1 

IFF<110  THEN  DIFF=120 
CTT  +  1 

TT=3  THEN  9080 

G*7!MB=MB+0 .5!DIFF=DIFF-27!G0 
RS=BH5+1 

HICS  17:P0KE  756,CH/'256  :POKE 
53778>:P0KE  788 , 138  :  G0B  =  G0B  +  7 

HICS  17:P0KE  7ie,14:P0KE  756, 
5ITI0N  5,6:?  «»6  ;  "[SiranimSBfflramfflPI" 

TION    3,18:?    «te;  "»[il[(IBI>l[lltiDB[ti[:ir:l[!l 


NM 

UU 
RC 

MN 

UL 

LU 

KI 

PT 
GM 
DV 

DO 

UC 

OU 
AD 

NI 

SU 

XU 

OQ 

BY 
LU 


CU 
RM 
J  I' 


KJ 


VB 


TK 
II 
KF 

UN 

SN 


5P 
YT 
CK 

LA 

QT 
YH 

BY 
DZ 

SD 

UU 
PI 
KD 
UX 

SG 

LG 

RC 

ID 

UN 


9082  POSITION  3.12:?  tt  6  :  "  (^[!J[:4[>ia[:1HBr:J[{l@n[:1 
M" 

9003  POSITION    4,14:?    «6;" li[!«[til ^IWIiUilUliria •  ■ 

9004  COLOR  33:PL0T  0,16:DRAUTO  19,16:P 
LOT  0.4:DRAUTO  19.4 

9806  FOR  D=l  TU  140:POKE  708 , RNO C0i wiO 
+50:NEXT  D 

9010  GRAPHICS  17:G0SUB  11111 : POKE  756. 

CH/256:  POSITION  5,0:?  «6 ;  "rammmsBraramiTit?]" 

:  X  =  10 : Y  =  10 :POKE  708.156 

9011  POSITION    0.22:?    «6 ;  "ElElBlElElHElElElElElEltr 
EElElEl[nElEl":TIME  =  0:T  =  10:IF     5O30000     THEN 
T=6 :S1=4 :S2=16 

9012  POSITION    0.3:?    n6 ;  "ElBGIEIEIIillilGIElEnEriEIEIB 
E1E1[i!H[iIEl":IF     SO78B00    THEN    T  =  3 

9013  POSITION  5.23:?  tt6;"AU0ID  TRAPS" 
9814  FOR  K=5  TO  21  STEP  3 

9015  POSITION  3.K:?  «»6 ;  "  -     -     -     - 

9017  NEXT  K!SCR=PEEKc8eJ+256*PEEKc89> : 

BS  =  8 

9050  TP  =  SCR  +  X  +  28»*Y  :ST  =  PEEKC632>  :POKE  7 

18.14 

9851  IF  X=S1  AND  Y=S2  THEN  9700 

9053  IF  SO50000  AND  RNDc0>m9<5  THEN  G 

OSUB  500 

9855  GOSUB  4100:IF  X>18  THEN  POKE  5CR+ 

X+28»Y.8: X=X-1 

9060  IF  X<1  THEN  POKE  SCR+X*20»Y. 0 : X=X 
+  1 

9061  IF  Y<5  THEN  POKE  SCR*X+20*V . 8 : Y=Y 
+  1 

9862  IF  Y>20  THEN  POKE  SCR+X+28»Y , 0 : Y= 

Y-1 

9063  SOUND  0,0,0,0:IF  B5=3  THEN  9208 

9070  POKE  TP.ll:FOH  D=l  TO  8!NEXT  D!LO 

GATE  X, V,BC:P05ITI0N  7,2:?  »6;"C0UNT  " 

:BS 

9075  IF  BC=45  THEN  9700 

9080  PUKE  TP,0!POKE  718 , PEEK c53778> 

9188  IF  TIME=e  THEN  T1=INT cRND c8> »15> + 

3 :T2=INTcRNDt0»«15J +4: POSITION  T1,T2:? 

«»6;  "Q" 
9103  TIME=TIME+l:IF  TIME>T  THEN  POSITI 

ON  T1,T2:?  «6 ; FOR  D  =  10  TO  0  STEP  - 

l:SOUND  0, 18.18. D:NEXT  D:TIME=0 

9107  IF  BC=163  THEN  FOR  D=l  TO  10:5OUN 

D  8.D+2.8.6 :POKE  712.D*3!NEXT  D:BS=BS+ 

l:SOUND  8.8,8.e:P0KE  712,0 

9150  GOTO  9050 

9200  REM 

9240  POSITION    3,23:?    1*6 ;  "CONGRATULATIO 
NS" 

9241  POSITION    5.2:?    *t6 ;  "tamNmofiiBBrilnlUS    " 


9245 

0,10 

INT  c 

9246 

":  50 

9247 

-l:P 

9248 

E  75 

:GOT 

9700 

RV  N 

9784 

9705 

ScDi 

9706 

9707 

D  =  l 

9710 

E  75 

:GaT 

9999 

1800 

1111 

1111 

OKE 

1111 

2,14 

1111 

73,2 

1112 

8J+2 

1113 


FOR  D=l 

SOUND  1 
RND  C0>M1 

P05ITI0 
UND  0,0, 

FOR  D=l 
OKE  708, 

SN=SN+1 
6,CH^256 
0  7 

POKE  TP 
0  BONUS" 

FOR  JJ= 

FOR  D=- 
+JJ, 10,1 

N£XT  JJ 

SOUND  0 
TO  40:NE 

5N=5N+1 
6,CH''256 
0  7 

GOTO  90 

0  REM  -- 

1  RESTOR 

2  FOR  AD 
ADD,B:NE 

5  DATA  7 
1,26,208 

6  DATA  1 
00,2, 141 
0  POKE  5 
56»PEEKt 
0  POKE  D 


TO  10: 
.RND  C0> 
0J*1088 
N  5.2: ? 
8.0:S0U 

TO  18: 
F :NEXT 

GOSOB 

POKE  7 


SOUND  0, 
»20, 10,1 
+1000: SC 
tt6; "BON 
ND  1.0.0 
FOR  F=15 
F:NEXT  D 
400: GRAP 
10.121  :P 


RND<0J»»18.1 
8:NEXT  D : A= 
=  SC  +  A 
US  ";A;" 
.8 
TO  0  STEP 

HICS  17!P0K 
OKE  708.138 


0:POSITION  3,23:?  M6;"S0R 


30  TO  5 
15  TO  1 
0 : POKE 

,20,6,1 
XT  D : 50 
:G05UB 
:POKE  7 


5  STEP  3: 
708,0+58! 

e:POKE  7 
OND  0,0, 
4e8:GRAP 
10, 137  :P 


SOUND  0,AB 
NEXT  D 

88,255 :F0R 

8,0 

HICS  1?:P0K 

OKE  788.138 


58 

DLI-BLOl 

E  11115 

D=1536 

XT  ADD 

2,138,7: 

,  162 

5, 141, It 

,26,208. 

12,8:P0t 

561> 

L+2.112+128:P0KE  54286.192 


TO  1536+28:READ  B:P 

'2, 141. 18,212,169, 11 

18,212,282,208,250, 1 

.104, 170,104,64 
IKE     513, 6:DL=PEEKt56 


11147  POSITION  6,0: 
TURN 


?    «6  ;  "HHOBraHFIfSim"  :  RE 


ANTIC  SOFTWARE  UBRARY 


Tech  Tips 


THREE  COLORFUL  GRAPHICS  DEMOS 

By  Mark  Proudfoot 

These  three  colorful  BASIC  graphics  demonstrations 
were  sent  by  Mark  Proudfoot,  14,  a  high  school  student 
from  Brentwood,  California. 

Easter  Egg  Maker  produces  a  beautiful,  flashing  Easter 
egg,  using  pastel  shades  for  excellent  effect.  Rainbow  is 
a  Graphics  11  demo  with  sound,  producing  a  different 
set  of  "rainbows"  each  time.  Pipe  is  in  Graphics  9  and 
produces  a  pipe  with  water  running  out  of  it.  The  deli- 
cate shading  gives  an  almost  three-dimensional  effect. 


<^ 


Don't  type  the 
TYPO  II  Codes! 


LISTING  1 


FU 
OF 
TO 
QH 


CU 


US 

TM 
DG 

PB 
AC 
VM 


KO 
BH 
OE 
OZ 
TV 
SM 
UT 
ZB 
PB 
QU 
BQ 
CG 
ZN 
CO 
DO 
NU 

ZC 


1 

2 

3 

10 

OL 

70 

12 

ud 

69 

13 

R 

15 

28 

Y  = 

35 

40 

50 

NX 

B 

60 

70 

80 

90 

92 

10 

11 

12 

13 

15 

16 

17 

18 

19 

20 

21 

ND 

22 


RE 
RE 
RE 

G 
OR 
9. 

? 

f  o 

9  • 
■3 

F  = 
R 
N 

IR 

X 
F 
P 

-X 

80 

X 

T 
I 
G 

5 

e 
e 

8 
0 

0 
0 

8 

0 
0 

0 
0 


n  EASTER  EGG  MA 
t1  BV  MARK  PROUD 
M  CCJ1989.  ANTI 
RAPHIC5  7:P0KE 

IsPOKE  716,208 
0 

"The  Easter  Eg 
at       Press    Wiiimsn 


KER 

FOOT 

C  PUBLISHING  INC 

752,l:P0KE  708,14:C 

:P0KE  712,208:POKE 

9  Maker-bu  MarK  Pro 
to  create  another 


Press  gntnSHQ  to  end. 


FO 


1  TO 
=  1 .1 

X  =  80 

=  0:  Y 
OR  I 
LOT 
.NV  + 

!IF 

=  X+c 

RAP 

F  F  = 

OSUB 

ETCO 

POKE 

XIO 

RETU 

F  =  2 

REM 

5ETC 

5ETC 

RETU 

GOSU 

IF  P 

IF  P 


2 
•■IR  =  1 
.■NV  =  4 
NPT 
=  SIZE 
=  1  TO 
X  +  NX, 
y  :GOS 
F  =  2  T 
YHCDX 
13e:N 
1  THE 

160 
LOR  1 

765, 
18,tt6 
RN 
GOTO 


/R:PI= 
0!SIZE 


6 .28318531 :NPT=360 
=42^R:DX  =  R»»PI^NPT  :  D 


80  ST 
V+NV:P 
UB  80: 
HEN  GO 
>> : Y=V 
EXT  I 
N  RETU 

.RNDce 
RNDC81 
,0,0," 

15 


EP  1 

LOT  NX+X,HY-V:PLOT 

PLOT  NX-X,NV-V:GOSU 

SUB  200 

-1  .4**tX»«cDY>> 

NEXT  F:GOTO  190 

RN 

>i«15,14 

«3 

S" 


OLOR  0,RNDc 

OLOR  l.RNDc 

RN 

B  160:GOSUB 

EEKC53279>= 

EEKt53279>= 


0>wi5, 14 
0>»15,14 

200:GOTO  198 
6  THEN  RUN 
5  THEN  GRAPHICS  0:E 


0    RETURN 


LISTING  2 


SI 
YD 
DD 
SO 

SK 
GK 
GR 
JQ 
KA 

MF 

SZ 
AS 

MG 
VT 

RU 
LD 
FK 
DH 
AT 
HY 


20 
38 
48 
50 
OL 
68 
70 
88 
98 
18 
IN 
11 
9. 
12 
13 
D 
14 
15 
9, 
16 
17 
18 
19 
28 
21 


GOSUB 
REM  UE 
PLOT  0 
FOR  B  = 

OR  INTt 
DRAUTO 
NEXT  B 
F  =  6  !  G  0 
REM  HO 

8  G=G+1 

TCA^15J 

0  SOUND 

A 

0 

8 

E 

8 

8 


NEXT 
SOUND 


COLOR 
SOUND 
A:NEXT 
8  GOSUB 
FOR  A 
SOUND 
NEXT 
PRINT 
FOR  D 


100:IF 
RTICAL 
.RND  C0> 
1  TO  79 
RNDc8i« 
B,C  :S0 

TO  20 
RIZUNTA 
:FOR  A-- 
+1!1F  G 
0,8,8, 

A 'COLOR 
1,8,8, 

e:FOH 
0,8,8 

A 
210 
15  TU 
0,8,0 

A 
«6 ;  "W' 

E  =  l  TO 


G=3  THEN  GOTO  130 

LINES 

»179 

STEP  2  !C  =  KND  t0J»«l?i»  !  (; 
14J+2 
UND  1,C.0,10 


L     LINKS 

1     TO     185     STEP     V  ! COLOR 
=2     THEN    COLOR     IJ 
A-'ISJPLOT     0.n:DRAl4Ttl     7 

8:RE1UKN 
8:FUR  DE=1  TO  580:NEX1 

n=18b  TO  1  STEP  -2 
A^15:PL0T  0.  ft:  PRAM (U  ? 


8  STEP  -e.b 
A:POKE  712, A 

:GOSUU     210:END 
100e:NLXT     llt:RfMU5N 


LISTING  3 


PA 
UJ 
IS 
YH 
MM 
PZ 
JT 
TU 
"IS 
DJ 
JU 
t'P 

i:x 
JY 
OF 
TO 

HE 

DO 

MK 
BU 
PJ 


5 

6 

V 

18 

48 

58 

60 

70 

80 

90 

10 

11 

11 

12 

12 

13 

2> 

13 

EE 

14 

V 

15 

16 

17 


REM  PIPE 

REM  BY  MARK  PROUDFOOT 

REM  CC21989.  ANTIC  PUBLISHING  INC 

GRAPHICS  9:P0KE  712,16:DEG 

FOR  B=l  TO  61 

FOR    ft=10    TO    17:C0L0R    A-9 

PLOT     A,B:NEXT     A 

FOR    ft=18    TO    25:C0L0R    25-cA-4> 

PLOT     A,B:NEXT    A:NEXT    B 

FOR  ft=31  TO  46 :K=A-30:COLOR  K 
0  PLOT  25-INT cK^3i , A:DRAUT0  40, A 
0  NEXT  A:C=15 

5  FOR  A=46  TO  61 = K=ABS cA - 61> : COLOR  K 
8  PLOT  25-INTcK^3J , A:DRAMT0  48, A 
5  NEXT  A:C=15:S0UND  1.25,8,2 
8  X  =  41:Y  =  INTCRNDc0>»*3>t58  :G=tRNDc8J»« 
+  2 

5  SOUND  e,PEEKc53778J ,10,2:5OUND  0,P 
KC53778> ,8.2 
8  COLOR  CRND C81M81+1 : G=G»1 ■ 5 : PLOT  X. 

8  X=X+2:Y-Y+G 

8  IF  X>78  OR  Y>179  THEN  GOTO  138 

8  GOTO  135 


RU 
OF 
TO 
UR 


1  REM  RAINUOU 

2  REM  BY  MftRK  PROUDFOOT 

3  REM  CC11989,  ANTIC  PUBLISHINC  INC 
10  GRAPHICS  ll:F=3:P0KE  712,13 


Antic  pays  $25  for  every  original  and  exclusive  Tech 
Tip  submission  that  we  publish.  Send  your  8-bit  or  ST 
disk  and  printout  to:  Antic  Tech  Tips,  544  Second 
Street,  San  Francisco,  CA  94107.  Tech  Tips  welcomes 
very  short  programs  that  demonstrate  the  Atari's 
powers,  simple  hardware  modifications,  or  useful 
macros  for  popular  software. 


AUGUST  1989 


43 


Antic 


****** 

Munich  Atari  XL/XE  Public  Domain  Associa- 
tion is  looking  for  members.  Great  PD-selection. 
We  sell  ($2/2S),  change  and  buy  PD-software. 
Free  list.  Write  to:  Florian  Bechert,  August- 
Foppl-Str.l7  ,  8000  Munchen  50,  West-Gennany 
(FRG)(8/89) 

****** 
Try  us  for  your  Atari  Public  Domain  software 
needs.  Good  prices,  fast  service.  Write  for  free 
catalog.  Vulcan  Software,  P.O.  Box  692  Manas- 
sas,  VA  2211-0692  (9/89) 

PRINTSHOP  GRAPHICS.  HoUdays  S15.00.  LDS 
Prophets  and  Temples  $15. 00.  LDS  Church 
Auxiliaries  S15.00.  120  pictures  each.  Free 
Catalog.  PCS  Software  Box  18574,  Kearns,  UT 
84118.  (10/89) 

130  XE,  XEP80, 1.C.D.  MIO  (256K)  &  CABLES. 
ALL  DOCS.  IN  ORIGINAL  CARTONS.  USED 
LESS  THAN  6  MONTHS.  $375.00.  ALSO 
ADAPTEC  4000A  HD  CONT  &  50  PIN  SCSI 
CABLE,  $60.00.  AFTER  6  P.M.  CDT  205-649- 
5004.  (8/89) 

Treasure  Hunters  Wanted  to  play  a  new  action 
text  game.  Cash  Prizes  for  info  SASE  MEADOW- 
BROOK  GAMES  30860  AUcante,  Homeland, 
CA  92348  (8/89) 

****** 
10  disks  with  the  best  P.D.  games  ever  made  for 
the  Atari  8-bit  for  only  $10.00  plus  2.00  S/H. 
Order  NOW!  E.Lopez,  RO.  Box  6772,  Pico 
Rivera,  CA  90661-6772 

****** 

The  A  Exchange — ^A  Users  Newsletter  for  ALL 
Atari  Owners.  Send  SASE  for  FREE  Issue.  The 
A  Exchange,  RO.  Box  25852-A,  Fresno,  CA 
93729.  (8/89) 

EXCELLENT  PD  SOFTWARE  FOR  800/XL/ 
XE.  Large  selection,  low  prices,  and  fast  ser- 
vice. Send  SASE:  CLASSIC  SOFTWARE,  RO. 
BOX  373,  RUNNEMEDE,  NEW  JERSEY  08078 
(8/89) 


****** 
BEST  PD  DISKS/PRICES— fastest  service— 
FREE  bonuses— 8-bit/ST.  Automatic  DISK-A- 
MONTH  program.  Full  disks  less  than  SI. 50 
each.  Super  sample  disk  with  catalog  S3. 50. 
Specify  computer  PATNOR,  POB  370782,  El 
Paso,  TX  79937 

ENJOY  selected  PD  software!  Games- 
productivity — utihties — more!  Demo  disk, 
$300.  .  .catalogFREE.  Homemade,  6011  Hyde 
Park  Circle,  Suite  208,  Jacksonville,  FL  32201 
(8/89) 

MUSIC  LOVERS!  MIDI  YOUR  ATARI!  We  have 
music  software,  Midi  interfaces,  and  hundreds 
of  pre-programmed  songs  available  for  the  Atari 
XL/XE  and  Atari  ST.  For  catalog  send  $1.00  to 
The  MIDI  Inn,  P.O.  Box  2362,  Dept.  AN7,  West- 
mont,  IL  60559-  Specify  your  computer,  music 
software  and  Midi  instruments  on  hand.  (9/89) 

****** 
CREATE/PRINT  MUSIC  MANUSCRIPT.  48K 

800/XL/XE.  Words  and  music.  WYSIWYG. 
Epson,  Star,  Panasonic  printers,  or  easily  create 
your  own  driver  Very  high  quality  display  and 
output.  A  SERIOUS  TOOL  for  musicians;  a 
NEAT  TOYfor  music-lovers.  Written  by  an  M.A. 
in  music.  $1995.  30-day  MONEY-BACK  GUAR- 
ANTEE. John  Kelleher,  4400  New  Jersey  Street, 
San  Diego,  CA  92116  (10/89) 

Your  choice  of  8-bit  P.D.  software  on  each  side 
of  every  disk.  Great  selection,  competitive 
prices.  Send  SASE  for  catalog.  Dino's  RYO,  664 
W.Arrow  Hwy,  Suite  197,  San  Dimas,  Calif. 

91773 

CHRISTL\N  SOFTWARE  and  PUBLIC  DOMAIN 
PD  low  as  $1.80/disk.  Send  SASE  for  Catalog. 
AGAPE  GAMES  Disk  five  Christian  Games 
$12.95  (8  BITS  W/48K).  Dan  Sharpe  GPO  fiox 
911  Chicopee  MA  01021  (9/89) 

USED  8-BIT  EQUIPTMENT,  SOFTWARE,  AC- 
CESSORIES, SEND  S.A.S.E.  (45  CENTS)  BUSI- 
NESS SIZE,  OR  45  CENT  STAMPS  FOR  PRICES 
AND  HUGE  LIST  L.  CHRISTOFFER,  1806 
PATRICK,  BURLINGTON,  WA  98233  (8/89) 


****** 

Stop  overpaying  for  PD.  Software!!!  ALL  8-bit 
disks  only  $2.00  each,  ST  only  S3.00.  Quantity 
discounts,  great  selection.  Specify  computer 
Send  large  SASE:  MWPDS,  890  N.  Huntington 
St.,  Medina,  OH  44256  (8/89) 

SI  gives  you  MORE  for  LESS!  Our  SUPERIOR 
ATARI  800/XL/XE  PD  Theme  CoUections  aver- 
age 35  programs  (7  cents  each!)  per  D-S 
disk.  Shipping  FREE.  Send  only  $300  for  MLX 
GAMES'  GREATEST  HITS  (our  Most  Popular 
tide) — receive  Si's  newest  Catalog  FREE!  Catalog 
alone/  $2.00.  SOFTWARE  INFINITY,  642  East 
Waring  Avenue,  State  College,  PA  16801  (7/89) 

NEW  800/XL/XE  SOFTWAREIAn  Interna- 
tional Collection  of  Shareware  and  Public 
Domain  programs  for  the  discriminating  Atari 
owner  Every  disk  Guaranteed!  Dependable 
world-wide  service.  Low  prices!  Free  descrip- 
tive caulogue.  BELLCOM,  Box  1043-A,  Peter- 
borough,  Ontario,  Canada  K9J  7A5  (8/89) 

Atari  800/XL/XE  public  domain  disks.  High 
quality  disks,  fast  service,  free  list.  High  quality 
disks,  fast  service,  free  list.  1st  Byte,  PO  Box 

130822,  Tyler,  TX  75713  (8/89) 

250+  DS/SD  DISKS  OF  PD  SOFTWARE  FOR 
YOUR  ATARI  8-BIT  PLEASE  SEND  $3  TO: 
AAPDS  6-18TH  EDGEMORE,  HUTCHINSON, 
KS  67502. 

Public  Domain  Software— ST  $4/Disk,  800/XL/ 
XE  $3/Disk.  Largest  ST  Selection.  The  Atari  ST 
Book  $16.95.  Fast  Service,  Visa/Mastercard, 
FREE  catalog— Specify  Computer.  BRE  Soft- 
ware, 352  W.  Bedford,  Suite  104-A,  Fresno,  CA 
93711.  (800)  347-6760  (1/90) 

****** 
BATTERY  BACKED  UP  RAMDISK.  Never 
lose  your  memory.  Boot  from  Ramdisk!  No 
installation.  Ramdisk  cartridge  plugs  into  Atari 
400/800  or  XL/XE.  32K  $99.95,  64K  $12995, 
192K  $24995  Certified  check.  Money  order, 
VISA  accepted.  CANOE  COMPUTER  SERVICES, 
11006-155  St.,  Edmonton,  AB,  T5P-2N3  Phone 
(403)  437-4619  (8/89) 
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Advertising 
Deadlines 


October  1989 

Insertion  Orders:  June  30 

Artwork:  July  7 

On  Sale:  Last  week  of  August 

November  1989 

Insertion  Orders:  August  1 
Artwork:  August  8 

On  Sale:  Last  week  of  September 


BUY 


SELL 


TRADE 


SWAP 


Antic  Classifieds 

54^  Second  Strccl,  S;in  l-ranci.sco.  c;A  9401' 
Telephone  {~i\=>)  9S'^-(18H6 


N-anic 

C-omp;in\' 

Address 

I'hniK- 

Cny!SiMd'/.[p 

MastfrCardA'is: 

Niimbtrr 

l-;x[")ir;uU)ii  Daic* 

Signature 

Enclosed  is  my  panneni  for  S_ 


IssLic(s)  Ad  lo  Appear 


RATE:  SI. 00  PER  WORD— twenty  (20)  word  minimum. 

BOLDFACE:  Add  S7.50  per  line  for  boldface  words  or  add  S40.00  for  the  entire  ad  set 
in  boldface  (any  number  of  lines). 

STARS:  Add  Sfy'so  for  one  (1)  line  of  .six  (6)  stars  **••••  at  top  of  ad. 
TERMS:  Prepa\'ment  is  required.  Check,  Money  Order,  Visa  or  MasterCard  is 
accepted.  Make  check  payable  to  Antic  Publishing. 

FORMS:  Ads  are  subject  to  publisher's  approval  and  MUST  BE  TYPED.  Please  underline 
words  to  be  set  in  boldface. 

GENERAL  INFORMATION:  Advertisers  using  Post  Office  Box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  the  next  avail- 
able i.ssue  after  receipt  unless  otherwise  specified. 

DEADLINE:  90  days  prior  to  cover  date  (e.g.,  December  1988  closes  September  I, 
1988 — December  issue  on  sale  November  1,  1988). 

Clip  this  coupon,  attach  to  typewritten  copy  and  send  with  remittance  to  address  on 
the  left. 

HANDWRITTEN  COPY  WILL  NOT  BE  ACCEPTED 


AN  AD  IN  ANTrC  REACHES  MORE  THAN  100,000  SERIOUS  ATARI  USERS 


SUPER  BONUS  PROGRAM 
on  Antic  Disk! 

You  get  even  more  value  when  you  get  the  Antic 
disk...  a  Bonus  Program  that's  too  large  a  type-in 
program  to  fit  in  the  magazine. 

Plus  you  get  oil  1 72K  of  this  month's  Antic  programs 
on  disk.  Great  8-bit  software  without  typing! 


Order  your  disk  now! 
Phone  toll-free: 
1-800-234-7001 

(Visa/Mastercord  orders) 

Ask  for  ADS889 


Only 

$5.95 

(Pins  $2  shipping  &  hondling) 


BACK  ISSUE 


Complete  Your  Atari  "Toolkit 


SAVE  25%  TO  35% 


How  To  Order: 


Simply  give  the  Order  Numbers  of  the 
issues  you  want,  and  include  the  letter 
corresponding  to  the  following  selections: 

A-  magazine  &  disk 
B-  magazine  only 
C-  disk  only 


Prices: 


Magazine  &  Disk 
Magazine  only 
Disk  only 


1  To  5  If  you  order  more 

Issues  than  5  Issues 

$7.00  each  $6.50  each 
$3.00  each  $2.75  each 
$5.00  each       $4.75  each 


Please  include  shipping  &  handling  charges: 
1  to  5  issues:   $1  for  each  issue 
6  and  over    :   $  5  plus  50c  for  each 
issue  over  5. 


Example:   lA-  is  for  "April  1983, 
&  disk" 


Tnagazine 


If  no  letters  are  indicated  in  your  order,  we 
will  automatically  send  you  the  magazine 
only  (B). 


FOR  ORDERS  ONLY  CALL  TOLL-  FREE 
(800)  234-7001  (7-5pm  PST.) 

MasterCard  &  Visa  Only 

Or  send  your  check  to:  ANTIC  BACK  ISSUES 
544  Second  Street  San  Francisco,  CA  94107 
California  residents  add  6  1  /2%  sales  tax. 


Back  Issue  Order  Form 


Order  # 


Selection 
A,  B,  or  C 


Order  # 


Total  Issues  Ordered: 

No.   Issues  of  Sel.  A:  . 
No.   Issues  of  Sel.   B: 
No.   Issues  of  Sel.   C: 


1  to  5 


Total  Issues 
Ordered: 

6  &  over: 


X  $7  ea. 
X  $3  ea 
X  $5  ea 


X  $6.50  ea. 
X  $2.75  ea. 
X  $4.75  ea 


Selection 
A,  B,  or  C 


=  $_ 


=  $. 
Total  $. 
Shipping  &  handling  $  _ 
Amount  enclosed  $_ 


□  Check  Enclosed      □  VISA       □  MasterCard 


Name 


Address 


City. 


state  . 


Zip. 


Credt  Card  # 
Exp.    Date 


Canada,   Mexico  and  all  other  foreign  add  $1. 
per  issue.   Payment  in  U.S.  funds  must 
accompany  all  foreign  orders.    CaUfomia 
residents  add  6  1/2  %  sales  tax. 

^W  ^^    Ilie  ATARI  ficsojrcc 


Missing  any  issues?  Looking  for  those  great  utilities, 

games,  and  reviews?  You'll  find  it  all  right  here! 

Copies  are  limited,  so  order  today! 


ORDER  « 


ISSUE 


1 

2 
3 
4 
5 

6 

7 
8 

9 

lO 

11 

12 

13 

14 

15 

16 
17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 


April  1983:  Games— 3-D  Maze,  Voyeur  (NoDisk) 

May  1983:  Telecomputing — Microids, 
Tele  Chess  (no  Disk) 

June  1983:  Databases — Stargazing, 
Dancin'  Man  (No  Disk) 

July  1983:  Adventure  Gaines — Dragonsmoke, 
Shoot-em-up  Math 

August  1983:  Graphics— 3-D  Fuji,  Keystroke 

Artist 
September  1983:  Education— P/M  Tutor 
October  1983:  Sports  Games — AutoCassette 
November  1983:  Sound  &  Music— Air  Raid, 

Casting  Characters 
December  1983:  Buyer's  Guide — 

AUTORUN.SYS,  Automate  Player/Missiles 
January  1984:  Printers — Pocket  Calendars, 

Screen  Dump 
February  1984:  Personal  Finance— TYPO, 

Gauntlet 
March  1984:  International  Issue — DiskRead, 

Poker  Solitaire 
April  1984:  Games — Risky  Rescue, 

Math  Wizard 
May/June  1984:  Exploring  XL  Computers — 

Escape  from  Epsilon,  Scroll  to  the  Top 

July  1984:  Communications— AMODEM, 
BASIC  Animation  Secrets 

August  1984:  Disk  Drives — Horseplay,  Recall 

September  1984:  Computer  Graphics — 

Graphics  Converter,  Olympic  Dash  (No  Magazine) 
October  1984:  Computer  Learning — Bouncing 

Ball,  Antic  4/5  Editor/ Animator 
November  1984:  Computer  Adventures — 

Adventure  Island,  Advent  X-5 
December  1984:  Buyer's  Guide — Infobits, 

Biffdrop 
January  1985:  Super  Utilities— TYPO  II, 

DISKIO 
February  1985:  Finances — Home  Loan 

Analyzer,  Drum/Bass  Synth 
March  1985:  Printers— Kwik  Dump,  Font 

Maker 

April  1985:  Computer  Frontiers — Dot  Matrix 

Digitizer,  Speech  Editor 
May  1985:  New  Super  Ataris — Son  of  Infobits, 

Arena  Racer 
June  1985:  Computer  Arts — View  3-D, 

The  Musician 
July  1985:  Computer  Challenges — Miniature 

Golf,  Guess  That  Song 
August  1985:  Telecommunications — Atari 

'Toons,  Pro*Term 
September  1985:  Power  Programming — 

One-Pass  Disk  Copy  130,  Crickets 


ORDER  « 


ISSUE 


30  October  1985:  Mind  Tools— Graph  3D,  GEM 

Color  Cascade 

31  November  1985:  New  Communications— 

TYPO  II  Double  Feature,  130XE  Memory 
Management 

32  December  1985:  Shoppers  Guide— DISKIO 

Plus,  Box-In 

33  January  1986:  Atari  Products  are  Back- 

Appointment  Calendar,  Dungeon  Master's 
Apprentice 

34  February  1986:  Printer  Power- T-Shirt 

Construction  Set,  Forth  Escapes 

35  March  1986:  Practical  Applications— Lunar 

Lander  Constructor,  Lie  Detector 

36  April  1986:  Computer  Mathematics— Fractal 

Zoom,  3-D  Fractals 

37  May  1986:  4th  Anniversary— Digital 

Gardener,  Molecular  Weight  Calculator 

38  June  1986:  Summer  Computing— Weather 

Wizard,  Bomb  Squad 

39  July  1986:  Computer  Arts- Amazing  Card 

Shuffler,  Grafcon  ST 

40  August  1986:  Online  Communications— 

Ultrafont,  Floppy  Filer 

41  September  1986:  Weather— WEFAX  Decoder 

(8-bit/ST),  BASIC  Tracer 

42  October  1986:  Hard  Disks— Video  Stretch, 

TYPO  ST 

43  November  1986:  Personal  Finance— Budget 

dataBASE,  V-Graph 

44  December  1986:  Shoppers  Guide — Stepper 

Motors,  Nuclear  Waste  Dump 

45  January  1987:  Talking  Atari— Talking 

Typewriter,  Rebound 

46  February  1987:  Word  Processing— SF 

Fogger,  Electric  Charliel 

47  March  1987:  Dvorak  Keyboard, 

Multi-AUTORUN 

48  April  1987:  —Designer  Labels,  Taxman 

49  May  1987:  5th  Anniversary — A-Rogue,  Poker 

Slot  Machine 

50  June  1987:  Animation — Verbot  Commander, 

Citadel 

51  July  1987:  Print  Anything— Ghost  Writer, 

Your  Net  Worth 

5  2  August  1987 :  Atari  Muscle — Sideways 

Spreadsheet,  Diamond  Dave 

53  September  1987:  Work/Play— Mighty  Mailer, 

Maximillian  B. 

54  October  1987:  Football  Predictor— Antic 

Prompter  (8-bit/ST),  Spelling  Checker 
5  5  November  1987 :  Practical  Applications — 

Critical-Path  Projects,  WYSIWYG  Cassettes 
56  December  1987:  Print  Holiday— R  S.  Envelope 

Maker,  Antic  Publisher 


B&C 


ComputerVisions 


3257  KIFER  ROAD 

SANTA  CLARA,  CA  95051 

(408)749-1003 

(408)  749-9389  FAX 


A 


STORE  HOURS 
TUE  -  FRI  10am  -  6pm 

SAT  -  10am  -  5pin 
CLOSED  SUN  -  MON 


soo/ xi^/ XE  s<:>ftwj\_re 

ALL  TITLES  ON  DISK 


ENTERTAINMENT 

12  ADAMS  ADVENTORES  ..  14.95 

ALIANTS  26.95 

ALT.  REALITY  CITY 26.95 

ALT.  REALITY  DUNGEON.  26.95 

BEYOND  CASTLE  WOLF....  14.95 

ni.SMARK  26.9  5 

nop  «  WRE.'3TLE  26  .95 

IJORDINO;1812  26.95 

BOULDERDASH  CONSTR.SET  17.95 

BRUCE  LEE  17.95 

CASTLE  WOLFENSTEIN. ...  14 .95 


DALLAS  QUEST  

D-BUG  

r-15  STRIKE  EAGLE 


95 
95 


31.50 


FIGHT  NIGHT  17  .95 

GAUNTLET  (64K)  31.50 

DEEPER  DUNGEONS 22.50 

GUNSLINGER  26.95 

HARD  HAT  MAC  7.95 

JAWBREAKER  9.95 

KARATEKA  13.50 

KNICKERBOCKERS  13 .  50 

KORONIS  RIFT  13 .  50 

LAST  V  -  8  8.95 

LEADERDOARD  13.50 

MAIL  ORDER  MONSTERS  ..  13.50 

MICROLEAGUE  BASEBALL..  35.95 

MONTEZUMA'S  REVENGE...  14.9  5 

MOUSEQUEST 17.95 

MOON  SHUTTLE  7.95 

NINJA  8.95 

OIL'S  WELL  9.95 

O'RILEY'S  MINE  9.95 

PIRATES  OF  BARB.  COAST  22.50 

PREPPTE  T  S  II  9.95 

RESCUE  ON  FRACTALAS ...  13.50 

SILENT  SERVICE  31.50 

SPEEDKING  8.95 

SPIDERMAN  7.95 

SPITFIRE  40  31.50 

STARFLEET  I  44  .95 

SPY  VS.  SPY  III  17.95 

STOCKMARKET  22.50 

STRIP  POKER  26.95 

SUMMER  GAMES  17.95 

TAX  DODGE  9.95 

THE  HULK  7.9  5 

TOMAHAWK  (64K)  26.95 

TOP  GUNNER  17 .95 

TOUCHDOWN  FOOTBALL  ...  13 . 50 

TRAILBLAZER  26.95 

UNIVERSE  44  .95 

ZAXXON  (400/800) 13.50 

PROGRAMMING 

ACTIONI  71.95 

ACTION!  TOOLKIT  26.95 

BASIC  XL  53.95 

BASIC  XL  TOOLKIT 26.95 

BASIC  XE  71.95 

DOS  2.5  7.95 

DOS  XE 10.00 

DISK  I/O  26.95 

KYAN  PASCAL  62.95 

LIGHTSPEEU  C  35.95 

LOGO  19.95 

MAC/65  71.95 

HAC/65  TOOLKIT  26  .95 

MACRO  ASSEMBLER  22.50 

PILOT  19.95 

SPARTA  t)OS  X  71.95 

TOP  DOS  1.5  PLUS  35.95 

PRODUCTIVITY 

ANIMATION  STATION  ....  89.95 

ATARIWRITER+ 39.95 

ATARI  BOOKKEEPER  24.95 

ATARI  MUSIC  II 14.95 

AWARDWARE  (1050)  13.50 


BANK  STREET  WRITER....  14.95 

BLAZING  PADDLES  31.50 

CELEBRITY  COOKBOOK  ...  26.95 

COMPUTE  YOUR  ROOTS  ...  3  5,95 

DATAMANAGER  17.95 

FAMILY  FINANCE  6.95 

GUITAR  WIZARD  26.95 

HOME  ACCOUNTANT  19.95 

HOME  FILING  MANAGER.  .  6.95 

HOMEPAK  24.95 

INVENTORY  MASTER  80.95 

LETTER  WIZARD  29.95 

MUSIC  CONSTRUCTION  SET  13.50 

NEWSROOM  (1050  -  64K).  44.95 

NEWS  STATION  26,95 

NEWS  STA.  COMPANION.  .  26.95 

PAGE  DESIGNER  26.95 

PRINT  POWER  (1050)....  13.50 

PRINTKIT  (1050)  13.50 

PRINTSHOP  34,9  5 

P.S.  COMPANION  (64K)  .  24.95 

P.S.GRAPHICS  LIBRARY  1  17.95 

P.S.GRAPHICS  LIBRARY  2  17.95 

P.S.GRAPHICS  LIBRARY  3  17.95 

PROOF  READER  17.95 

PUBLISHING  PRO  35.95 

RUBBER  STAMP  26.95 

SYNTREND  (130XE)  35.95 

SUPER  MAILER  35.95 


THE  LOTTO  PROGRAM  . . . , 

TIMEWISE  

TURB0W0RD/8U  COLUMN 

REQUIRES  XEP80 

VIDEO  TITLESHOP  (64K). 


17,9  5 
6,95 


44  ,95 
26,95 


GRAPHICS  COMPANION.  17.95 

VIRTUOSO  29.95 

VISICALC    24.9  5 

EDUCATION 

ATARI  LIEHT  MODULE 

(REQ.  STARTER  SET)  .  9.95 

BUZZWORD  35.95 


GRANDMA'S  HOUSE  (-10)    9, 
HEY  DIDDLE  (AGE  3-10).   9, 


95 
95 


MASTER  TYPE  14  .  95 


PLANATARIUM  22  , 


50 
95 
9  5 


STATES  AND  CAPITALS  . . 

TOUCH  TYPING  

CBS  (AGE  3-6)  : 

ASTROGROVER  

BIG  BIRD  SPEC  DELIVE 
ERNIE'S  MAGIC  SHAPE. 

DESIGNWAEEl 

MATHMAZE  (6-11) 

MISSION  ALGEBRA  (13+)35.95 

SPELLICOPTER  (6-11),  35,95 

TINK  TOHK  (AGE  4-6): 

ABC ' S  

COUNT  AND  ADD  

SMART  THINKER  

SPELLING  

SUBTRACTION  

THINKING  SKILLS  . . , 
ALL  6  TINK  TONKS, 

UNICORNi 

10  LITTLE  ROBOTS 

(PRE-SCHOOL)  26.95 

FUN  BUNCH  (6-ADULT)   26.95 
RACECAR  RITHMETIC 

(AGE  6+)  26.95 

WEEKLY  READER  (PRE-SCHOOL): 
STICKY  BEAR  SHAPES  .  26.95 
STICKY  BEAR  NUMBERS.  26,95 
STICKY  BEAR  ABC'S  ,,  26,96 
STICKY  BEAR  OPPOSITE  26,95 
SB  BASKET  BOUNCE  ,..  26.95 
STICKY  BEAR  BOP  ....  26.95 

RUN  FOR  IT  26.95 

PIC  BUILDER  26.95 


8,95 
8,95 
8,9  5 

35,95 


8,95 
8,95 
8,9  5 
8,95 
8,95 
8,95 
39,95 


SOO/  X  Z^/  XE  SOFT  W^^  RE 

ALL  TITLES  ON  CARTRIDGE 

ENTERTAINMENT 


3D  TIC-TAC-TOE  9,95 

AIRBALL  (XL/XE)  24,9  5 

ALIEN  AMBUSH  9,95 

ACE  OF  ACES  , (XL/XE)  ,  24,95 

ARCHON  19.95 

ASTEROIDS  15.95 

A.STRO  CHASE  14  .95 

ATARI  TENNIS  9.95 

ATLANTIS  14  .95 

BALL  BLAZER  19.95 

BARNYARD  BLASTER 

(REQ.  LIGHT  GUN).,.  24.95 

BATTLEZONE  19.95 

B.C.  QUEST  FOR  TIRES  19.95 

BLUE  MAX  19.9  5 

BOULDERS  S  BOMBS  ..,,  14,95 

CAVERNS  OP  MARS  14,9  5 

CENTIPEDE  14  ,95 

CHICKEN  9.9  5 

CHOPLIFTER  14.9  5 

CLAIM  JUMPER  (400/800)  9,95 

CLOUDBURST  9,95 

CRIME  BUSTER 

(REQ,  LIGHT  GUN),.  24,95 

CROSSBOW  24,9  5 

CROSSFIRE  9,95 

CRYSTAL  CASTLES (XL/XE)  19,95 

DARK  CHAMBERS  (XL/XE),  24,95 

DAVIDS  MIDNIGHT  MAGIC  19,9  5 

DEFENDER  14  .95 

DELUXE  INVADERS  7.95 

DESERT  FALCON  19,95 

DIG  DUG  19.95 

DONKEY  KONG  5.00 

DONKEY  KONG  JR 19.95 

EASTERN  FRONT  (1941).  19.95 

E.T.  PHONE  HOME  9.9  5 

FIGHT  NIGHT  19.9  5 

FINAL  LEGACY  19,95 

FOOD  FIGHT  (XL/XE)..,  19,9  5 

FOOTBALL  14  ,95 

FROGGER  14  ,95 

GALAXIAN  9,95 

GATO  24  ,95 

GORF  (400/800)  5,00 

GYRUSS  14  .95 

HARDBALL  19.95 

INTO  THE  EAGLES  NEST  19.9  5 

JOURNEY  TO  PLANETS  ..  9.95 

JOUST  19.9  5 

JUNGLE  HUNT  19.9  5 

K  ABOOM I  14.95 

KARATEKA  19,95 

KRAZY  ANTICS  14  ,  95 


LODE  RUNNER  24,95 

MARIO  BROS 19,95 

MEGAMANIA  9.95 

MILLIPEDE  14,95 

MISSILE  COMMAND  5,00 

MOON  PATROL  19.95 

MR,  COOL  9,95 

MS.  PAC  MAN  19.  95 

NECROMANCER  19.95 

ONE  ON  ONE  (XL/XE)..,  19,95 

PAC  MAN  5,00 

PENGO  19  ,95 

POLE  POSITION  19,95 

POPEYE  14,95 

0-BERT  14  ,95 

QIX  14,95 

RESCUE  ON  FRACTALAS  ,  19,95 

RETURN  OF  THE  JEDI  ,,  14,95 

ROBOTRON;2084  19,95 

SKY  WRITER  14.95 

SLIME  (400/800) 9,95 

SPACE  INVADERS  14  ,95 

STAR  RAIDERS  5.00 

STAR  RAIDERS  II  19.95 

SUBMARINEE  COMMANDER  14.95 

SUMMER  GAMES  (XL/XE),  24,95 

SUPER  BREAKOUT  9,95 

SUPER  COBRA  14,95 

THUNDERFOX  19  ,  95 

TRACK  i  FIELD  24,95 

TURMOIL  9,95 

WIZARD  OF  WOR 5,00 

PRODUCTIVITY 

ATARIWRITER  19.95 

MICROFILER  22  .  50 

EDUCATION 

ATARILAB  STARTER  SET  ,  29,95 

FUN  WITH  ART  14.95 

MATH  ENCOUNTERS  9.95 

FISHER  PRICE  (PRE  SCHOOL): 

DANCE  FANTASY  8.95 

LINKING  LOGIC  8,95 

LOGIC  LEVELS  8,95 

MEMORY  MANOR  8,95 

SPINNAKER  (AGE  3-]0): 

ALF  IN  COLOR  CAVES  ,  9.95 

ALPHABET  ZOO  9.95 

DELTA  DRAWING  9  .  95 

FACEMAKER  9,95 

KIDS  ON  KEYS  9,95 

KINDERCOMP  9,95 

(AGE  7  -  ADULT) : 

ADV, CREATOR  ( 400/800 ), 9 , 95 

FRACTION  FEVER  9,95 


4, 


S  Ur'EI^    S  F'EC  IjV  e  s 

RECONDITIONED  ATARI  MERCHANDISE 

30  DAY  WARRANTY 


J. 


800  (48K) 

COMPUTER 

$79.95 

400  (16K) 
COMPUTER 

$29.95 


1020  COLOR 
PRINTER/ PLOTTER 

$19.95 

40  COLUMNS  WIDE 
(new  in  box) 


SPACE  AGE 
JOYSTICK 

$5.00. 

ATARI 
TRACKBALL 

$9.95 


ATARI 
BOOKKEEPER 
$14.95-  NO  BOX 

ATARI 

NUMERIC 

KEYPAD  $7.95 


IDJO  MODEM 
WITH  EXPRESS! 

$24.95 

1010  PROGRAM 

RECORDnR 

$29.95 


DISKETTES 

AS  LOW  AS  20  CENTS 

10  FOR  $4,00 

100  FOR  $29,95 

1000  FOR  $200 

MOST  ARE  UNNOrCHED 

WITH  OLD  SOFTWARE 


SHIPPING  INFORMATION  -  Prices  do  iiol  Include  shipping  and  liandling.    Add  $.5,00  for  small  ilcnis  ($8,00  Min,  for  Canada),  Add  $8,00  for  disk  drive.    Add  $2,7.'i  for  C.O,D, 
Calif,  res.  include  7'S'  sales  tax.    Mastercard  and  Visa  accepted  if  your  telephone  is  listed  in  your  local  phone  directory.    Orders  may  be  pre-paid  with  money  order,  casliier 
check,  or  personal  check.   Personal  checks  are  held  for  three  weeks  before  order  la  processed,    C,0,D  orders  are  shipped  via  UPS  and  must  be  paid  with  cash,  cashier  check  or 
money  orcler.    International  and  APO  orders  must  be  pre-paid  with  cashier  check  or  money  order.    $20.00  minimum  on  all  orders.    All  sales  are  final  -  no  refunds  -  prices  are 
subject  to  change- 
Phone  orders  aocepteid  TUESDAY  THROUGH  FRIDAY  from  10:00  am  to  6:00  pm  PST, 
We  carry  a  full  line  of  ATARI  products  -  large  public  domain  library  -  write  or  call  for  free  catalogue 


PRICES  SUBJECT  TO  CHANGE  WITHOUT  NOTICE  -  ALL  SALES  ARE  FINAL 


